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AVANT-PROPOS 


Le système 8 . 2, implanté sur micro-processeur de la famille Intel 
8080 / Zilog 80, est une version du système MOISP) conçu et développé à 
l’Université de PARIS 8 - VINCENNES. 


Le système  [VLISP] est actuellement disponible sur une grande variété 
d'ordinateurs tels : ' 

- le T1600 de la Télémécanique électrique (sous le système BOS/D) 

- le PDP 10 (sous les systèmes TOPS10, WAITS, IRCAM et TENEX) 

- le SOLAR 16 (sous le système TSF) 

- te PDP11 (sous les systémes RT11 et RSX11) 

le PDP20 (sous le système TOPS20) 

et ul est cours de déve loppement sur d’autres ordinateurs parmi lesquels : 
o le Motorola 6800 

- le CII-HB série 60 level 68 ous Le Systane MULTICS) 


Le langage et le système sont destinés à l’enseignement et à la recherche 
en programmation expérimentale, en intelligence artificielle, en 
informatique musicale, en synthèse d’ images colorées et en expérimentation 
d’ apprentissage autonome. 


Ce manuel décrit toutes les versions du système [MISP 8 fonctionnant sur 
micro-processeur de la. famille Intel 8080 / Zilog 80. Ce système est 
disponible dans des conf igurat ions très différentes, incluant des systèmes 
de développements très sophistiqués (tels les systèmes MDS INTELLEC80 ou 
TRSDOS) ou des systèmes personnalisés les plus variés. 


Ce manuel décrit en principe tous les aspects courants des différents 
systèmes 8, mais n’engage l’auteur que sur les principes de base. Le 
manuel sera sujet à des remaniements, au fur et à mesure de la création de 
nouveaux systèmes [MISP 8 et de l’évolution normale et souhaitée des 
systèmes actuels et de leurs utilisateurs. 


Ce manuel n’est pas réellement destiné aux débutants, mais aux 
utilisateurs ayant déjà une certaine expérience de LISP. Le lecteur ne 
doit donc pas espérer trouver une introduction progressive et ordonnée aux 
constructions du langage. Toutefois la très grande quantité d’exemples de 
tout niveau doit permettre à ce manuel d’être tout à la fois un manuel de 
référence et un manuel d’utilisation. 
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Si vous détectez une situation très anomalique, une erreur manifeste d’un 
des systèmes, une omission dans le manuel ou si vous désirez parler de 


+ 


choses et d’autres, contactez-moi à l’adresse ci-dessous : 


Jérôme CHAILLOUX 
Département d’Informatique 
Université Paris-8 Vincennes 

Route de la Tourelle 
75571 Paris Cédex 12. FRANCE 
tél : 374-12-50 Poste 299 


Je crois à propos de remercier P. GREUSSAY, H. WERTZ, D. GOOSSENS, 
K. ZELASKA, J.F. PERROT, B. ROBINET, H. HUITRIC, M. NAHAS, G. PAUL, 
A. CATTENAT, L. AUDOIRE, J.P. MOULIN, C. COLERE, Y. DEVILLER, G. ENGLERT, 
Y.. LECERF, J.M. HULLOT, . 6.. HUET, . ..G. BERRY, … D. RONCIN,. G. COSLADO,, 
J.G. RAOULT, G. HERBUVEAUX, M. SAINTOURENS, G. NOWAK | 

ainsi que tous les autres utilisateurs qui ont influencé, par leurs 
excellentes suggestions, La réalisation et l’implémentation des différents 
systèmes 8. 

En particulier, que tous les membres du Club de Micro-Informatique, 
ARRAKIS, (de l’Université de Paris 8) soient remerciés pour leur 
collaboration tant matérielle que logicielle. 

La réalisation de la version MDS a été possible gráce à l’intérêt et à la 
bienveillance de Jean Paul MAZEAU. 


La réalisation de la version SORCERER a été rendue possible gráce á la 
compétence de Gérard BERRY. 


La réalisation des systémes TRS a été possible gráce au soutien de Gerald 
BENETT et de Jean KOTT, a !L’IRCAM. 


La composition de ce manuel a été réalisée a.!l* IRCAM avec le programme RF 
de J.L. RICHER, et l’impression du fichier édité a été réalisée sur 
L’ imprimante électrostatique VERSATEC grâce à la compétence de R. BARA et 
P. GREUSSAY. | 


La révision 1 de ce manuel reflète les nombreuses améliorations apportées 


a Ul interprète [VLISP durant l’année 1979. Une description complète de ce 
nouvel interprète est donnée dans : 


Le modèle Y z 
Description, Impiémentation 
et Evaluation. 


Jérôme CHAILLOUX, 

Thèse de 3ème cycle, 
Université Pierre et Marie Curie, 
L. I. T. P., 2 Place Jussieu 
75221 Paris Cédex 05 France 
Avril 1980 
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PLAN DE LECTURE 


Ce manuel se veut être un manuel de référence et risque de paraître obscur 
à ceux qui désirent une introduction progressive aux concepts et aux 
structures du langage. Toutefois Ll’abondance d’exemples doit permettre à 
ce manuel d’être également un manuel d'utilisation. Ce manuel s’adresse 
donc aux lecteurs ayants déjà une petite notion du langage LISP. 


Le chapitre 1 contient la description des différents systèmes ainsi que 
leur mise en oeuvre., Sa lecture est indispensable pour un premier contact 
avec le système et pour l’adapter à un système différent. 


Le chapitre 2 traite de la représentation des données et du fonctionnement 
interne de l* interprete. Ce chapitre, notoirement opaque, peut être sauté 
en première lecture par Les utilisateurs ayants déjà une idée de 
L’ interprétation de LISP en général. Ne s’y référer que pour les détails 
d’ implémentation et de l’interprétation de [LISP]. 


Le chapitre 3 contient la description des fonctions standards des 
différents systèmes. ATTENTION : toutes ces fonctions ne se trouvent pas 
forcément sur tous les systèmes. En effet certaines fonctions ne sont pas 
incluses dans les petits systèmes 8. 


Le chapitre 4 traite des entrées/sorties simples et de la manipulation des 
fichiers. Là encore du fait des périphériques spécialisés toutes les 
fonctions de ce chapitre ne se trouvent pas sur tous les systèmes. 


Le chapitre 5 traite des fonctions systèmes. Sa lecture est reservée à 
ceux désirant réaliser des systèmes spéciaux. 


Le chapitre 6 décrit l’éditeur vidéo interne EDITV du système TRS 8. 
À Lire très vite si votre sytème possède un tel éditeur. 


Le chapitre 7 contient la description et le texte du paragrapheur 
plus connu sous le nom de PRETTY-PRINT, que possèdent les systèmes à 
disquettes. 


Le chapitre 8 donne le texte de programmes VLISP utilitaires et de 
démonstration. 


Enfin une annexe de Harald WERTZ introduit le système LOGD/LISP. Toutes 
les primitives du langage y sont décrites ainsi que de très nombreux 
exemples. 
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| - UTILISATION 


1.1 LES DIFFERENTES VERSIONS DU SYSTEME [VLISP] 8. 


Le systéme 8.2 utilise indifféremment une unité centrale de type 
Intel 8080 ou Zilog 80. Les systèmes [VLISP] utilisant Le Zilog 80 sont à la 
fois plus rapides et moins encombrants (du fait de son jeu d’instructions 
amélioré), mais dans une proportion négligeable ce qui permet d’assimiler 
ces deux types de C.P.U. 


IL existe deux grands types de systèmes [LISA] 8. 2 2 

- ceux qui utilisent des systèmes de développements entetante 

- gt ceux qui utilisent des  micro-ordinateurs de fabrication 
personnalisée. 


Dans tous les cas l’interprète lui-même occupe une place fixe de 8k à 12k 
octets (en fonction des systèmes) et demande un minimum de 8k octets de 
mémoires de travail. Cette mémoire de travail doit être de 1? ordre de 16k 
pour tout travail conséquent. | Z pa 


L.1.1 VUSP] et les 5 stèmes de déve loppements 


Le système MISP 8.2 est disponible sur les systèmes de développement 
suivants : 


MDS Intellec 80 sous système disque 1SIS 1 ou ISIS IT, avec une mémoire 
centrale de 32k ou de 64k. Ce système est chargé a partir du disque 
souple et laisse 10k de mémoire de travail pour |” interprete dans le 
version 32k et 42k de mémoire de travail dans le version 64k. Dans ce 
manuel nous appelerons ces deux versions MDS(32k) ou MDS (64k). La 
configuration peut comporter beaucoup de périphériques qui seront tous 
utilisables en par l’ intermédiaire de ISIS. 


TRS80 sous système Level II, , avec un minimum de 16k RAM et 
optionnellement, avec adjonction d’une carte contenant 8k REPROM. La 
réalisation de la carte supplémentaire adaptable sur le bus standard 

u ..1TRS80 .a été.réalisée. par Christian COLERE. .Dans le-systéme sans 
REPROM, L’ interprète doit être chargé à partir d’une cassette et la 
mémoire de travail de l’interprète ne dépasse pas 8k; en revanche 
dans la version avec REPRÓM la taille de la mémoire de travail est de 
16k. Nous nommerons ces versions TRS80(K7) et TRSS0O(PROM) tout au 
long de ce manuel. 

Il existe une autre version de fonctionnant sur TRS80 avec une 
grosse configuration qui comporte au minimum un floppy disque et 48k 
de mémoire vive. Cette version utilise un système de gestion de 
disquette qui peut être :  TRSDOS, NEWDOS+ ou bien CP/M. Nous 
nommerons tout au long de ce manuel TRS80CTRSDOS) la version 
fonctionnant sous système TRSDOS ou NEWDOS+ et TRS80(CP/M) La version 
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fonctionnant sous CP/M. 

Avec ces quatre familles du système 8 fonctionnant sur TRS80, il 
est possible d'utiliser le lecteur de cassette, les possibilitées 
pseudo-graphiques de l’écran et un éditeur temps réel sur écran inclu 
dans le système 8 lui-méme. 


SORCERER dans 3 versions utilisant respectivement : 
- la cassette, système SORCERER (K7) 
- le ROM PAC, système SORCERER (ROMPAC) 
- la disquette sous système CP/M, système SORCERER (CP/M) 
Tous ces systèmes utilisent 32k ou 48k RAM et permettre d'acceder à 
L’ interface série. Un éditeur temps réel sur écran est en cours 
d'écriture. 


1.1.2. MSP) et les systèmes personnalisés 


A Uheure actuelle MIP) est implanté sur deux systèmes personnalisés 
conçus autour des modules : A 9 


SDK 80 de INTEL : à base de 8080 qui utilise 16k RAM et 8k REPROM, Ce 
système a été réalisé par J.P, MOULIN. Nous appelerons cette version 
SDK80 tout au long de ce manuel. : 


SDB 80E de MOSTEK : à base de Z80 qui utilise également 16k RAM et 8k 
PROM. Ce système a été réalisé par Louis AUDOIRE qui a également 
ajouté de nombreux dispositifs annexes en particulier une unité 
arithmétique de type AMD9511. Nous appelerons cette version MZ80. 


On peut bien évidemment étendre la mémoire de ces différents systèmes, 
leur ajouter à tous une Unité Arithmétique de type Amd9511 et de nombreux 
pér inhér iques. 
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1.2 POUR DESUTER AVEC LISE] 8. 


Pour jouer [WLISP] 8, il suffit, sous moniteur, d'émettre sur le terminal la 
commande : 


—VLISP dans les systèmes MDS (32k) et MDS (64k) 
«E 8020 dans le systeme MZ80 
.68020 dans le système SDK80 
>SYSTEM p 
2/32800 "dana le système TRS80 (PROM) 
>SYSTEM puis 
?2/16400 dans le système TRS80 (K7) 
DOS READY o o 
VLISP dans le système TRS80 (TRSDOS) 


LO VLISP puis M à a o 
GO 0420 dans le système SORCERER (K7) 


dans tous les cas, le systéme répond : 


xk VLISP 8.2 j¡j/mm/aa xxxxxxx 
xk (C) 1979 Université de Paris 8 - Vincennes 


dans lequel jj/mm/aa est la date de la dernière modification de 
l’interprète et xxxxxx est le nom du système emp Loyé. Le système rentre 
alors dans la boucle principale de U’ interprète qui va, indéfiniment, lire 
une expression sur le terminal, 1? évaluer puis imprimer la valeur de cette 
évaluation. Le système indique qu’ il attend la lecture d’une expression 
en imprimant, sur le terminal, le caractére ? au début de chaque ligne. 
Enfin la valeur de l'évaluation est imprimée précédée du caractère =. 


La fin de ce chapitre contient trois exemples de session simple avec 
différents systèmes [VLISP 8.2. 
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1.3 IMPLANTATION ET INTERFACE D'ENTREE/SORTIE. 


L’implantation mémoire est fonction du système utilisé. Toutefois la 
réalisation d* interfaces d’entrée/sorties spéciaux est extrêmenet aisé. 
En effet, L’interprète débute par une table de branchements sur les 
différents points de lancement de l’interprète ainsi que sur les modules 
d’entrée/sortie normaux et auxilliaires. 


Voici l’organisation de la table des branchements de l’interprète. 


Lancement de 


L’ interprète START: JMP XXX 
à froid. 

Lancement de __. o 

L’ interprete WARM: JMP XXX 
à chaud. 

Entrée console. CI: JMP xxx 


(retourne dans le registre 
A le caractère suivant lu 
sur la console). 


Test console. CS: JMP XXX 
(retourne dans le registre 

A : 0, si aucun caractère 

n'est prét á étre lu, 

sinon le caractére lu). 


Sortie console. CO: JMP XXX 
(sort sur la console le 
caractère contenu dans 

le registre C). 


Entrée auxilliaire. TR: JMP XXX 
(équivalent à Ci: pour le 

périphérique auxilliaire). 
Sortie auxilliaire. e JMP XXX 
(équivalent à CO: pour le 

périphérique auxilliaire). 


Connaissant le début de cette table, il est aisé de changer l'adresse de 
branchement de l’un de ces modules. 


Cette table se trouve en : 


à l’adresse : pour le système : 
3420 MDS (32k) 
3820 MDS (64k) 
8020 MZ80 .. 
4C20 TRS80 (K7) 
8020 TRS80 (PROM) inaltérable ! 
8020 TRS80 (TRSDOS + 32k) 
9020 TRS80 (TRSDOS + 48k) 
8020 SDK80 
0420 SORCERER (K7) 
0420 SORCERER (CP/M + 48k) 
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Exemple de session simple de MISP) avec un système MDS (64k) 


-VLISP 
xx VLISP 8.2 14/9/79 MDS (64k) 
xk (C) 1979 Universite de Paris 8 
0 
NIL 
567 
567 
(CAR * (A B C)) 
A 
(cedr °’? la b 0) 
(B C) 
(DE FOO (A L) 

(COND 

((NULL L) 0) 


xx ERREUR DE SYNTAXE. 


Y Y Eoo eV ES YO OU I VDO ND OO I DD 


+o ve ve 


Sous ISIS II appel du système VLISP 


; répond le système qui 
Vincennes 


attend des données sur le terminal 
NIL est équivalent à © 
dit l’interprète. 


La valeur d’un nombre est ce nombre 
LulL-même. 


Appel plus complexe n’est-ce-pas ... 


Les caractères minuscules sont DTA PORN 
convertis en majuscules 


.. produit irrémédiablement une erreur 
de syntaxe et re-entre dans la boucle 
de lecture normale. 


Définition de la fonction qui 
retourne le nombre d*occurrences . 
de l'atome À dans la liste L. 


La fonction est maintenant définie. 


pour arrêter l* interprete et repasser 
sous le contrôle de ISIS. 


ok BREAK 
? 
? (DE FDO (A L) ; 
? (COND ; 
? ©  (CATOML) 0) ; 
? ((EQ (CAR L) A) (ADD1 (FOO A (CDR L)))) 
? ((FDO A (CDR L))))))))) 
= FOO ; 
? 
? (FOO ’DO ? (00 DO DO RE MI RE DO MI RE RE DO)) ; Et elle fonctionne. 
= 5 i 
e 
2 H so». etc + ce 
? (END) ; 
s répond ISIS 


ISIS V3.4 
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Exemple de session simple de [VLISP avec un système TRS80 (PROM) 


> + sous le LEVEL II 

>SYSTEM s appel de 1* interprete 

x? /32800 

xx VLISP 8.2 14/9/79 TRS80 (PROM) o y répond 8 


xx (C) 1979 UNIVERSITE DE PARIS 8 - VINCENNES 


(DE POL (E) ; Définition d’une fonction de 
(IF (ATOM E) E polonisation préfixe d’une 
(LIST (CADR E) (POL (CAR E)" (POL (CADDR E))))) 
POL s expression 2-aire 
(POL ? (A x B)) | + Essai de la fonction. 
(x À B) | 


(POL * (CA + B) x (A - B))) 
(x (+ A B) (- A B)) 


(POL *((B 1 2) - (4 x (A x C)))))) 
(- (MB 2) (x 4 (x À C))) 


; exemple de fonctions graphiques utilisant les 
; fonctions sur écran : CLEAR et DISPLAY : 


(DE ANIM (N POS L1 L2 L3) 
| D a 0) 
(DISPLAY POS L1) 
(DISPLAY (+ POS 64) L2) 
(DISPLAY (+ POS 128) L3) 
A (ANIM (1- N) (1+ POS) L1 L2 L3))) 
NIM TTE | 


(DE ELEF (N POS) 
; dessine un éléphant |! 
(ANIM N POS 
” (#20 #20 HBO #BC #BC #B4 #B8 HBC #90) 
’ (420 #96 #BF RBF RBF #BF #9F #86 #BD) 
EE ’ (#20 #81 #BF #95 #20 #BF #95 #20 #8A))) 
LEF 


(DE VOIR © 

(CLEAR #20) 

(ELEF 30 64) 

(ELEF 60 320) 

(ELEF 40 512) 

(ELEF 20 640) 

(IF (= (TYI) #20) (CVOIR))) 
VOIR 


TR ER ER ER LS EN EN ENT EN LS ES EN EN E ENS EENENENENENENENEN EN EN EN aS S aS a a n E CRC 
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? (VOIR) 


+... Pour voir, il faut appuyer sur 
..... la barre d’espacement. 

..... Pour interrompre le programme il 
..... faut appuyer sur la touche BREAK 


a ok BREAK 

? (END) ; pour revenir au LEVEL IT 
MEMORY SIZE? s dit-il 

>READY 
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Exemple de session simple de VLISP avec un système MZ80 


no 3” + sous DDT 80 

«E 8020 : appel de l* interprete 
xk VLISP 8.2 14/9/79 MZ80 > répond 8 
xx (C) 1979 Universite de Paris 8 - Vincennes 

? 


? (COULT 0) ; effacement de tout l'écran couleur 


s Définition de quelques fonctions utilisant l'écran couleur (1) 


? l 

? (DE SEG (x0 y0 x1 yl x) 

? (ADD y1 (DIV (MUL (SUB y1 y0) (SUB x x1)) 
? (SUB xl x0))?) 

= SEG 

? 

? 

? (DE VOIR (ml nl m2 n2 m3 n3 53 ID 
? (ADRIX 0) da; | 

? (SETQ J 0) 

? (WHILE (LE J 56) 

? (SETQ I 0) | 

? (WHILE (LE I 63) 

2 (COULDOSE 

? (SEG 0 M1 63 N1 [> 

? (SEG 0 M2 63 N2 1) 

2 (SEG 0 M3 56 N3 J)) 

? (SETQ I CADD1 133) 

? (SETQ J CADD1 J)))) 

: VOIR 

? (VOIR 0 15 15 0 0 15) 

= NIL 

? 

? (VOIR 0 15 0 15 0 15) 

= NIL 

? 

? (END) : pour repasser sous le contrôle de DDT80 
. s dit-il 


(1) ce programme réalise une série continue très simple, voir à ce sujet 
Les séries continues colorées , par Monique NAHAS et Hervé HUITRIC, 
Février 1979, Département d'Informatique, Université de Paris 8 -— 
Vincennes, Route la Tourelle, 75571 Paris Cédex 12 FRANCE. 
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Ii - L’ INTERPRETE 


2.1 LES OBJETS VOP 8 


L’interprète P| 8.2 permet de manipu ler des objets nommés S-expressions 
(pour Symbolic e ll 


Ces objets sont classés en 4 types distincts : 
- les atomes littéraux 

- les atomes numériques 

- les Listes 

- les tableaux d'objets binaires (de code). 


Toute S-expression est représentée en machine au moyen d’un pointeur (ou 

d’une adresse). 

L’accès aux valeurs des différents objets sera donc toujours effectué au 
moyen d’une indirection.. | 


VLISP| sera donc spéc ialisé dans la manipulation de pointeurs. 


2.1.1 Organisation de la mémoire 


L*organisation de la mémoire est différente pour chacun des systèmes 
8. Toutefois ces organisations ont en commun le découpage de la mémoire 
en zones fixes ce qui permet de distinguer aisément le type des différents 
objets et ce qui facilite le travail de l’allocateur/récupérateur de 
mémoire. | 


Voici une des organisation possible de la mémoire (chaque système ayant 
une organisation particulière) : 


adresses pointeurs sur la mémoire 
#0000 
zone de 
l’ interprète 
404% SE SE DE + 2 5 = + 0 Zone des 
16k pile nombres 


octets |... ....... 
<— HCODE entiers 


zone code 

utilisée 

par le 
compilateur 


H3FFF 
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#4000 | 
<- HNUMB 
zone des 
nombres. 
flottants 
CCC <- HNIL Zone gui contient 
l’atome NIL 
EE eos: tous les autres 
16k autres atomes 
octets constantes 
T EXPR etc .. 
B600 4 0 06 Pp 0 0 $46. 46 = 000.0 Ee HVAR 
zone des 
atomes 
Littéraux 
HIFFF 
#8000 
<- HLIST Zone liste 
32k zone des 
octets doub tets 
#FFFF 


2.1.2 Les atomes Littéraux 


Ils jouent Le rôle d’identificateurs et servent a nommer les vertables et 
les fonctions. Ils sont créés implicitement dès leur lecture dans le flux 
d’entrée ou explicitement par les fonctions IMPLODE ou GENSYM ; nul 
besoin donc de les déclarer. | 


Leur nom externe (Print name ou P-NAME) est une suite de caractères 
quelconques (contenant au moins un caractère non numérique) de longeur 
Limitée à 62 caractères. On peut insérer dans un P-NÁME des délimiteurs 
s'ils sont précédés du caractère / (slash) ou mieux, si le P-NAME contient 
des caractères spéciaux, on peut encadrer tout le P-NAME avec le caractère 
guillemets (voir la section 4.2.2 sur la lecture standard). | 


Un tel atome littéral est représenté dans l'interprète par un pointeur sur 
un descriptif stocké dans une zone spéciale de la mémoire. 


Ce descriptif est constitué des 8 propriétés naturelles suivantes : 


C-VAL (abréviation de Cell-VALue) sur 2 octets qui contient à tout 
moment La valeur LISP associée à l’atome littéral considéré comme 
une variable. L’accès à cette valeur est extrêmement rapide. À 
la création d’un atome littéral, sa C-val est "indéfinie" . Toute 
tentative de consultation d’un atome littéral qui n’a pas encore 
reçu de valeur provoque irrémédiablement une erreur. 


P-LIST (abréviation de Properties LIST) sur 2 octets qui contient à tout 


moment La liste des propriétés de l’atome littéral. Ces 
propriétés sont gérées par l’utilisateur au moyen des 5 fonctions 
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sur Les P-LIST (PLIST, PUT, GET, REMPROP et ADDPROP). Le système 
n'utilise jamais les PLIST’ des atomes Littéraux pour ses besoins 
propres. | 


F-VAL (abréviation de Function-YALue) sur 2 octets qui contient à tout 
moment la valeur associée à l'atome littéral considéré comme une 
fonction. Cette valeur peut-être : 

- une adresse dans le cas des SUBR 

= une $S- -expression dans le cas des EXPR 

L’accès à la F-VAL est effectué au moyen de la fonction FVAL et 
des fonctions de définition DE/DF/DM/DMC. 


F-TYPE (abréviation de Function TYPE) sur 1 octet qui contient le type 
(codé) de La. fonction stockée dans la F-VAL. L’ensemble F-VAL, 
F-TYPE permet de lancer les fonctions d’un manière extrêmement 
rapide. La consultation, en clair, du F-TYPE des atomes littéraux 
est réalisée au moyen de. la fonction FTYPE. a.. 


P-TYPE (abréviation de Print TYPE) sur 1 octet qui contient Les 
informations. nécessaires à l’édition de la représentation externe 
de l’atome littéral 
- Comme variable : Le bit 7 est positionné automatiquement par la 
fonction de lecture à l’entrée d’une pseudo-chaîne | | 
- comme fonction : les 4 bits de poids faibles servent au 
PRETTY-PRINT pour connaître le format d'édition à utiliser. 
L’accès au P-TYPE d’un atome littéral est effectué au moyen de la 
fonction spéciale PTYPE. 


A-LINK (abréviation de Atom-LINK) sur 2 octets qui contient l’adresse de 
l’atome suivant dans la table des atomes. Ce Lien (obligatoire du 
fait de la taille variable des descriptifs des atomes littéraux) 
permet entre autre de gérer facilement le hash-coding de la table 
des atomes. Cet attribut n’est pas accessible à [l'utilisateur 
directement. l 


P-LEN > (abréviation de Print-LENgth) sur 1 octet qui contient le nombre 
de caracteres du P-NAME de l'atome littéral. Le P-LEN est utilisé 
en conjonction avec le P-TYPE pour contrôler l'édition d’un atome 
littéral. 


P-NAME (abréviation de Print-NAME) sur N octets qui contient les 
caractères du nom de l'atome littéral, 


Ces propriétés naturelles sont rangées en mémoire suivant le schéma : 


C-VAL e 
P-LIST 


pointeur sur l’atome littéral 


F-VAL 
F-TYPE | P-TYPE 


CT AZLINK 
P-LEN | PN 1 


En 8 le CAR d'un atome littéral est sa C-VAL, le CDR sa P-LIST. 
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Certains atomes sont déjà connus de l* interprete : 

- les constantes littérales (qui contiennent leur propre adresse en C-VAL) 
dont voici La liste: NIL T LAMBDA OSUBR 1SUBR 2SUBR 3SUBR NSUBR FSUBR 
EXPR FEXPR MACRO & QUOTE). 

- les fonctions standards 


2.1.3 Les nombres 


8 manipule des nombres entiers (permettant de calculer dans 
L’ intervalle : 

- [-2M3 - 1 , +2113] dans les systèmes MDS(32k) et TRS80 (K7) 

- [-2M4 - 1 , +2814] dans tous les autres systèmes. 


et des nombres flottants sur 32 bits dans certains systèmes TRS80 (TRSDOS) 
et TRS80(CP/M). 


Le P-NAME d’un nombre est la représentation de sa valeur dans la base de 
conversion courante (e.g. 10). 


La valeur d’un nombre est ce nombre lui-même. Un nombre n’a ni C-VAL ni 
P-LIST. 


2.1.4 Les chaînes de caractères 


Il n'existe pas à proprement par Ler de chaînes de caratères, mais des 
pseudo-chaînes (qui ne sont qu’une autre manière de décrire Les atomes 
‘Littéraux). 

Une pseudo-chaîne est une suite de caractères quelconques encadrée du 
caractère délimiteur de chaîne, Le guillemet ar 

Ces pseudo- -chaînes ont donc les mêmes propriétés que les atomes littéraux, 
toutefois à leur création elles sont cons idérées comme des constantes et 
possèdent donc leur propre valeur en C-VAL. IL n’est donc pas obligatoire 
de "quoter" ces pseudo-chaînes. | 


2.1.5 Les Listes 


Les Listes sont représentées d’une manière standard : les différents 
éléments d’une liste utilisent un doublet de pointeurs dont la partie 
gauche (le CAR) contient l'élément, et la partie droite (le CDR) contient 
un pointeur sur l'élément suivant ou NIL pour le dernier élément. 
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Ex : la liste (A (BC. D) E) est stockée en mémoire 
sous la forme : 


2.1.6 Le code 


IL existe un certain nombre de fonctions spéciales (de manipulation de la 
mémoire) qui permettent d’utiliser n’importe quelle zone de mémoire. 
Cette mémoire peut être considérée comme un tableau d'objets binaires. 


2.2 FONCTIONNEMENT DE BASE DE L* INTERPRETE 


2.2.1 Evaluation des atomes 


La valeur d’un atome littéral (considéré comme une variable) est sa C-VAL. 
L’évaluation d’un atome littéral dont la C-VAL est indéfinie (auquel on a 
pas encore donné de valeur) provoque lors de son évaluation une erreur 
dont le libellé est : 


** erreur variable indéfinie : <at>) ou 
. ** undefined variable : <at> 


dans lequel le nom de l'atome littéral incriminé <at> est imprimé. 


Il existe de fait 2 types d'utilisation des variables : 

- comme variables globales. Ces variables ont une valeur toujours 
accessible. 

- comme variables locales. Danc ce cas les variables reçoivent une valeur 
qu’elles ne gardent que le temps de l’exécution d’une fonction (ce sont 
les paramètres formels des fonctions). 


La valeur d’une pseudo-chaîne est cette pseudo-chaîne elle-même, nul 
besoin donc de la "quoter". ` 


La valeur d’un nombre est ce nombre lui-même. 
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2.2.2 Evaluation d’une Liste 

L’évaluateur considère toujours une liste comme un appel de fonction. 
Cette Liste s’appelle une forme. Le CAR de cette forme est la fonction, 
Le CDR de la forme les arguments de la fonction. 


La valeur d’une forme est la valeur retournée par l’application de la 
fonction aux arguments. 


2.3 LES FONCTIONS 


Une fonction (le CAR d’une forme) peut être n’ importe quelle S-expression. 
Le CDR de la forme est la liste des paramètres actuels de la fonction. 


Si la fonction est un atome littéral, la fonction à utiliser est celle qui 
a été associée à cet atome littéral 

- soit à l’initialisation du système (c’est le cas des fonctions 
prédéfinies qui sont appelées également fonctions standards) 

- soit par l'utilisateur au moyen des fonctions de définition statiques ou 
dynamiques. 

Si aucune fonction n’a été associée 
Le Libellé est : 


à 


cet atome, une erreur apparait dont 


** erreur fonction indéfinie : <at>) ou 
** undefined function at} | 


dans lequel le nom de l’atome littéral incriminé <at> est imprimé. 


Dans le cas où la fonctión est un nombre, cela correspond à l'appel 
implicite de La fonction standard CNTH. Donc l’évaluation de (<n> <l>) 
retourne le <n>ième élément de la liste ler argument <l>. 


ex: (3 *’ (A B C D)) rr C£ 
=- (88*12345) TE” NIL 


Dans le cas où la fonction est une liste, il peut s’agir : | 
- d’une déclaration explicite et anonyme d’une fonction. Dans ce cas le 
premier élément de La Liste doit être soit l’atome spécial INTERNAL, soit 
l’atome spécial LAMBDA. 

- d’une nouvelle forme qui doit être évaluée et dont la valeur est la 
fonction à utiliser. On a donc affaire dans ce cas non pas à des 
fonctions constantes (anonymes ou non) mais à des fonctions variables. 
est l’un des rares langages dans lequel il est possible d’écrire des 
appels très agréables du genre : 


CCF (GT n 0) *MUL *DIV) val 2) 


8 posséde 6 familles de fonctions : 

- les SUBR et les FSUBR écrites en langage machine. 
- les EXPR, les FEXPR et les MACRO écrites en [VLISPI. 
- les fonctions d’échappement de type ESCAPE. 
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2.3.1 Les SUBR 


Les SUBR sont des fonctions écrites en langage machine, résidentes dans 
L’ interprète dès son lancement (les fonctions standards) ou après 
compilation (les fonctions compilées). Ces fonctions possèdent des 
arguments évalués. Il existe des SUBR à 0, 1, 2, 3 ou N arguments. Pour 
les SUBR à nombre fixe d’arguments (0, 1, 2 ou 3) s’il y a trop 
d'arguments fournis à l’appel, ils sont ignorés SANS être évalués. 
L’interprète n’évalue donc que le nombre d'arguments dont il a besoin. 
D'autre part s’il manque des arguments ils sont supposés être liés à la 


IL n’est pas possible de définir des fonctions de ce type, sauf à les 


Ces fonctions sont très nombreuses dans l’interprète standard, entre 100 
et 150 en fonction du système utilisé. 


Ex :. (CONS ?A)- = (CONS *A NIL) kr (A) 
(CONS (PRIN ?’A) (PRIN *B)> (PRIN ?’C)) A BK (A. B) 


On peut décrire anonymement une fonction de ce type au moyen d’une liste 
de la forme : 


 CINTERNAL <type> <adresse>) 


dans laquelle <type> est un des types de SUBR parmi les types suivants : 
OSUBR 1SUBR 2SUBR 3SUBR ou NSUBR 

et <adresse> est l'adresse d’implantation du sous-programme écrit en 
langage-machine réalisant la fonction. 


ex : si l'adresse du sous-programme CAR écrit en langage machine se 
trouve à l'adresse 18715, les deux appels suivants sont équivalents : 


(CAR ° (A B C)) rr A 
((INTERNAL 1SUBR 18715) ’ (A B ©) HP A 


2.3.2 Les FSUBR 

Les FSUBR sont également des fonctions écrites en langage machine, 
résidentes dans l’interprète dès son lancement (les fonctions standards). 
Ces fonctions possèdent des arguments en nombre variable qui ne sont pas 
évalués. Ces fonctions sont principalement utilisées comme fonctions de 
contrôle de l* interprete ou comme fonctions de manipulation de noms. 
Elles sont peu nombreuses, 

Tous comme pour les SUBR il n’est pas possible de définir des fonctions de 
id sauf à les écrire directement en LAP ou en faisant compiler des 


Toutefois il est possible de décrire de telle fonctions anonymement en 
utilisant une liste de la forme : 


CINTERNAL FSUBR <adresse>) 


dans laquelle <adresse> est l’adresse du sous-programme écrit en langage 
machine qui réalise la fonction. 


ex : si l'adresse du sous-programme qui réalise la fonction NEWL est 
28841, les deux appels suivants sont équivalents : 


(NEWL L) 
CCINTERNAL FSUBR 28841) L) 
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2.3.3 Les EXPR 


Les EXPR sont des fonctions écrites en MIS et interprétées par les 
fonctions standards d’évaluation (EVAL et APPLY). Ces fonctions possèdent 
un nombre quelconque de paramètres formels, qui sont rangés dans une liste 
<lvar> ainsi qu’un corps de fonction constitué d’un nombre quelconque 
d'expressions <s1> ... <sN>. 


On décrit anonymement une fonction de ce type en utilisant une liste de la 
forme : 


 (INTERNAL EXPR (<lvar> <s1> ... <sN>)) ou bien 
(LAMBDA <lvar> <s1> ... <sM>) 


dans laquelle <lvar> est la liste des paramètres formels et <s1> ... <sN> 
le corps de la fonction. 

La description d'une EXPR sous forme d'une lambda-expression a été 
conservée pour des raisons historiques (en effet LISP provient du 
A-calcul) et des raisons de compatibilité entre les différents dialectes 
de LISP. | 

La définition des fonctions de ce type est décrite dans la section 
suivante. | | 


L’évaluation d’un appel de fonction de type EXPR s’opére en 3 étapes : 

1 - Liaison des paramètres actuels aux paramètres formels 

2 - évaluation des différentes expressions du corps <81> ... <si>. La 
valeur retournée par l'appel de la fonction sera la valeur de la dernière 
évaluation (i.e. celle de <sN>) 

3 - destruction des liaisons effectuées en 1 -. 


Le type de Liaison des paramètres est fonction de la forme de la Liste des 
paramètres formels <lvar>, 

- Si <lvar> est une liste de variables la liaison s'effectue élément par 
élément entre la liste des variables (paramètres formels) et la liste des 
valeurs (paramètres actuels évalués). Si la liste des paramètres actuels 
est plus longue que celle des paramètres formels, les paramètres actuels 
excédentaires seront ignores sans être évalués. Si la liste des 
paramètres formels est plus Longue que celle des paramètres actuels, les 
variables restantes seront liées à la valeur NIL par défaut, faisant ainsi 
office de variables locales. 

- Si <lvar> est une variable simple, tous les paramètres actuels sont 
évalués puis rassemblés en une liste qui est liée à la variable. 

- Si <lvar> est une liste pointée de variables, la liaison s’effectue 
suivant les 2 modes précédents (voir le dernier exemple). 


exemples de liaison des EXPR 


( (LAMBDA (X Y Z) (LIST X Y 2)) 
(PRIN 1) (PRIN 2) (PRIN 3) (PRIN 4)) 
123 et K (23) 


( (INTERNAL EXPR ((X Y Z) (LIST X Y Z))) 
© (PRIN 1)) o 
1 et EP (I NIL NIL) 


((LAMBDA X X) (PRIN 1) (PRIN 2) (PRIN 3)) 
123 et r” (123) 


( (INTERNAL EXPR ((X Y . Z) (LIST X Y Z))) 


(PRIN 1) (PRIN 2) (PRIN 3) (PRIN 4)) 
1234 et P (12 (3 4)) 
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2.3.4 Les FEXPR 

Les FEXPR sont des fonctions écrites en [VVLISP] et interprétées par les 
fonctions standards d*évaluation (EVAL et APPLY). Tout comme les EXPR ces 
fonctions possèdent un nombre quelconque de paramètres formels, qui sont 


rangés dans une liste <lvar> ainsi qu’un corps de fonction constitué d’un 
nombre quelconque d’expressions <s1> .., <sN>, 


On décrit anonymement une fonction de ce type en utilisant une liste de la 
forme : 


CINTERNAL FEXPR (<lvar> <s1> ... <sM>)) 


dans laquelle <lvar> est la liste des paramètres formels et <81> ... <sMN> 
le corps de la fonction. Ces fonctions ne diffèrent des EXPR gue par le 
mode de liaison des paramètres. Tous les paramètres actuels (i.e. la CDR 
de la forme elle- même) sont rassemblés sans être évalués en une liste qui 
est liée à la première variable de la liste des paramètres formels. 
Toutes les autres variables de cette Liste font office de variables 
locales et sont liées à La valeur NIL. 


exemple de Liaison des FEXPR 


(CINTERNAL FEXPR (O0 X) (PRINT (CAR CA B))))) 
KEP  C(PRINT (CAR ? (A B)))) 


( (INTERNAL FEXPR ((X Y . Z) (LIST X Y Z))) 
(PRIN 1) (PRIN 2) (PRIN 3) (PRIN 4)) 
EF (((PRIN 1) (PRIN 2) (PRIN 3) (PRIN 4)) NIL NIL) 


2.3.5 Les MACRO 


L’ interprète reconnait un autre type de fonctions, les MACRO. Tout comme 
les EXPR et les FEXPR, ces fonctions écrites en MISF possèdent un nombre 
que Lconque, de paramètres formels, qui sont rangés dans une liste <lvar> 
ainsi gu’ un corps de fonction constitué d’un nombre quelconque 
d’expressions <s1> ... <sN>. 


On décrit ad: une fonction de ce type en utilisant une liste de la 
forme : | | | 


CINTERNAL MACRO (<Klvar> <s1> ... <sN>)) 


dans laquelle <lvar> est la liste des paramètres formels et <s1> ... <sN> 
le corps de la fonction. Pour évaluer une forme dont la fonction est une 
MACRO, L’interprète évalue tout d’abord la fonction associée à cette MACRO 
avec toute la forme comme paramètre actuel puis re-évalue la valeur 
retournée de cette première évaluation. L’évaluation d’une macro se fait 
donc en deux temps. 

C’est l'appel de La macro tout entier qui est passé en argument et qui est 
Lié à la première variable de la liste des paramètres formels (les autres 
variables servant de variables locales au corps de la MACRO), il est donc 
possible de réaliser des modifications physiques de la forme elle-méme a 
la première évaluation de la macro (voir les exemples de la section 
suivante). 


exemple d’appel d’une macro 


(CCINTERNAL MACRO CCL) (CADR L)) C(ADD1 4))) rr 5 
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2.4 DEFINITION DES FONCTIONS 


Tout comme les variables, il existe deux types d’utilisation des 
fonctions : 


- une utilisation statique : les fonctions sont définies d’une manière 
globale et gardent leurs définitions tant qu’on ne les modifient pas 
explicitement. Ce type de définition ne permet pas de conserver les 

_ définitions antérieures. 


- une utilisation dynamique : les fonctions peuvent changer de définition 
durant certaines évaluations et retrouver par la suite leurs anciennes 
définitions. 


Ces deux types d’utilisation s’appliquent aussi bien aux fonctions nommées 
associées à un atome Littéral) qu’aux fonctions anonymes (les formes 
INTERNAL ou les lambda-expressions), de n* importe quel type. 


Il faut se rappeler que les définitions des fonctions sont stockées dans 
les propriétés naturelles F-VAL et F-TYPE des atomes littéraux et qu’il 
est toujours possible de manipuler ces attributs directement au moyen des 
fonctions FTYPE et FVAL. Toutefois un certain nombre de fonctions 
standards permettent de réaliser des définitions statiques ou dynamiques à 
peu e frais (voir le paragraphe : définition des fonctions du chapitre 
suivant). 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 24 / 143 


VLISP] 8.2 Manuel de Référence Page 25 
2.5 L'EUALUATEUR - 


L’évaluateur 8 (i.e. les fonctions interprète EVAL et APPLY) a été 
spécialement étudié du point de vue de la vitesse d’exécution. 


Toutes les fonctions atomiques sont lancées très rapidement au moyen d’un 
branchement indirect indexé (par la F-VAL et Le F-TYPE). 


L’évaluateur minimise le nombre de CONS internes, en n’utilisant jamais la 
fonction  EVLIS pour ses besoins propres (même pour évaluer les arguments 
des lambda-expressions) sauf en cas de demande explicite au moyen d’une 
fonction de type LEXPR. 


Une particularité maîtresse de [VLISP), quelque soit U’ implémentation, est 
d’ interpréter itérativement les fausses récursivités (1). Itérativement 
est ici défini en termes de ressources : un appel de fonction est 
itératif s’il ne demande pas plus de ressources que celles accordées à 
l’entrée de la fonction. Les ressources en question sont les tailles de 
piles, ainsi que le nombre de doublets de Listes. 


C’est ainsi que dans : 


(DE LODPEVAL (IT) 
© CLOOPEVAL (PRINT (EYAL CREAD))))) 


la suite des appels internes de LOOPEVAL ne provoquera PAS un débordement 


de pile, et bouclera, comme il se doit pour une boucle-système, 
indéfiniment. 


Cette propriété se conserve, quelque soit le niveau d’imbrication des 
appels dits itératifs dans les structures de contrôle mises en jeu dans le 
corps de fonction. 


Toutefois le système ne traite pas les cas de CO-POST-RECURSION. 


L'utilisation systématique de cette propriété induit un style très souple 
et très naturel de programmation récursive, bien éloigné des horribles 
structures de contrôle dites plates. 


(1) voir Contribution à la définition interprétative et à 
l'implémentation des lambda-Tangages, par Patrick GREUSSAY, Thèse, 
Laboratoire Informatique Théorique et Programmation, 

Novembre 1977, No 78-2, 2 place Jussieu, 75221 Paris Cedex 05, FRANCE, 
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2.6 DEFINITION META-CIRCULAIRE DE L' INTERPRETE 


Enfin voici une description méta-circulaire de l* interprete MIS Cette 
description permet d’avoir une vue globale du fonctionnement de 
l’ interprète mais ne représente pas la véritable mise en oeuvre qui est 
beaucoup plus per formante notamment au niveau du nombre de CONS réalisés 
dans les fonctions de l’interprète et au niveau de lLl’encombrement de la 
pile : l'interprète MISP ne réalise aucun CONS pour ses besoins propres. 


(DE TOP-LEVEL © 
s boucle principale ; 
(PRINT “"Toplevel") 
(SETQ IT (PRINT (ESCAPE ERREUR (LET (stack) (EVAL (READ)))))) 
(PRINT ">" IT) 
(TOP-LEVEL?) > 


(DE EYAL (forme) 
. évaluation d’une forme que |lconque 
(COND | 
( (NUMBP forme) forme) 
((LITATOM forme) 
(IF (BOUNDP forme) 
(CVAL forme) 
(ERREUR (LIST “Atome indéfini : " forme)))) 
CT ao (CAR forme?) (larg (CDR forme) )) 
((NUMBP fonct) (CNTH fonct (EYAL (CAR Larg)))) 
((LITATOM fonct) | 
(EVALINTERNAL (FTYPE fonct) (FVAL fonct) larg)) 
((EQ (CAR fonct) ’LAMBDA) 
(EVALINTERNAL >EXPR (CDR fonct) larg)) 
((EQ (CAR fonct) * INTERNAL) 
.  CEVALINTERNAL (CADR fonct) (CDDR fonct) larg)) 
(T (SELF (EVAL fonct) larg))))))) 


(DE EVALINTERNAL (ftype fval larg) 

s évaluation d’une fonction suivant son type 

(SELECTQ ftype 
(OSUBR (CALL fval)) 
(1SUBR (CALL fval (EYAL (CAR larg)))) 
(2SUBR (CALL fval (EYAL (CAR larg?) (EVAL (CADR larg)))) 
(3SUBR (CALL fval (EYAL (CAR Llarg)) 

o (EYAL (CADR larg))> (EVAL (CADDA larg)))) 

(NSUBR (CALL fval CEVLIS larg))) 
(FSUBR (CALL fval larg)) 
(EXPR CEVALAMBDA fval CEVLIS larg)) 
(FEXPR (EVALAMBDA fval (LIST larg))) 
(MACRO (EVAL C(EVALAMBDA fval (LIST forme) ))) 
(T (ERREUR (LIST "EYAL : Fonction indéfinie : " fonct))))) 


(DE EVLIS (L) 
+ construit la liste des valeurs des évaluations 
+ de tous les éléments de ! 
CIF (NULL L) 


O 
(CONS (EYAL (CAR L)) CEVLIS (CDR 10323) 
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(DE EPROGN (L) 
s évalue le corps L 
(IF (NULL (CDR L)) 
(EVAL (CAR D) 
(EVAL (CAR LD) 
(EPROGN (CDR L)))) 


(DE EVALAMBDA Cf larg ;; lvar tok?) 
; applique une F-VAL de type : (<ilvar> <sl> ... <sN>) 
+ à la liste d'arguments larg ; 
(SETQ Ivar (CAR f)) 
(PUSH *aoxMar kero) 
(WHILE (LISTP tvar) 
(PUSH (CAR tvar) (CVAL (CAR lvar))) 
(SET (NEXTL lvar) (NEXTL Larg))) 
(AND tvar 
(PROGN (PUSH Lvar (CVAL lvar)) (SET lvar larg))) 
. (PROGT | 
(EPROGN (CDR f)) 
-—CUNTIL (EQ (SETQ tok (POP)) ’xxMarkerxx) 
(SET (POP) tok)))) 


; avec les fonctions de manipulation de pile 
(DE PUSH L (WHILE t (NEXTL stack (NEXTL L)))) 
(DE POP O (NEXTL stack) ) 


s et pour les fanatiques, un véritable APPLY 


(DE APPLY (fonct larg) 
; applique La fonction fonct aux ATOE NES larg 
(COND | 
((NUMBP fonct) 
(CNTH fonct (CAR larg))) 
((LITATOM fonct) 
(APPLYINTERNAL (FTYPE fonct) (FVAL fonct) larg)) 
((EQ (CAR fonct) ?LAMBDA) 
| (APPLYINTERNAL ?EXPR fonct larg)) 
( (EQ (CAR fonct) ? INTERNAL 
(APPLYINTERNAL (CADR fonct) (CDDR fonct) larg)) 
(T (APPLY (EYAL fonct) larg)))) 


(DE APPLYINTERNAL (ftyp fval larg) 

s application d’une fonction suivant son type 

(SELECTQ ftyp | 
(OSUBR (CALL fval)) 
(1SUBR (CALL fval (CAR larg))) 
(2SUBR (CALL fval (CAR larg) (CADR larg))) 
(3SUBR (CALL fval (CAR larg) (CADR larg) (CADDR larg))) 
(NSUBR (CALL fval larg)) 
(FSUBR (CALL fval larg)) 
(EXPR (EVALAMBDA fval larg)) 
(FEXPR (EVALAMBDA fval (LIST larg))) 
(T (ERREUR (LIST "APPLY : Fonction indéfinie." fonct))))) 
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111 - LES FONCTIONS STANDARDS 


Toutes les fonctions qui vont être décrites dans ce chapitre sont 
résidentes dans les systèmes actuels. 

Pour chacune d’élles on donnera son type (SUBR ou FSUBR) ainsi que le 
nombre standard d'arguments, et pour chaque argument le type souhaité, ces 
types étant notés : 

<s> pour une S-expression quelconque 

<l> pour une liste 

<a> pour un atome quelconque (atome littéral ou nombre) 

<at> pour un atome littéral 

<n> pour un nombre | 

<c> pour un caractère (i.e. un atome dont le P-NAME n’a qu’un 
caractère) | | 

<fn> pour une fonction (Le nom d’un atome, une lambda-expression ou une 
fonction explicite de type INTERNAL) | | 


Dans la mesure du possible, Les SUBR seront décrites en VLISP] sous forme de 
DE, DF ou DM. Ces descriptions ne sont que l*équivalent [VLISP de ces 
fonctions et ne représenteront que leurs caractéristiques fondamentales. 


Dans ce chapitre les fonctions standards sont ordonnées par grandes 
familles et de nombreuses références avants apparaissent inévitablement 
durant les définitions de ces fone ons: 


ATTENTION : du fait de la Timitation chronique en place mémoire de 
certains systèmes NSP 8, certaines fonctions (peu usitées) décrites dans 
ce chapitre sous forme de SUBR ou de FSUBR n'y existent pas sous cette 
forme. Pour pouvoir Tes utiliser, il faut obligatoirement Îles définir 
sous forme de EXPR, de FEXPR ou de MACRO. En cas de doute sur l'existence 
d'une fonction, testez la, au toplevel, au moyen d'un exemple simple. 
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3.1 LES FONCTIONS D'EVALUATION 


(EVAL <s>) [SUBR à 1 argument] 


C’est la fonction principale de !l’interprète. EVAL retourne la 
valeur de l'évaluation de L'argument <s> (voir la description de 
cette fonction dans Le chapitre précédent). 


ex : (EYAL ” (1+ 55)) kP 56 
(EVAL (LIST ”ADD 8 ? (1+ 3))) r 12 
(EYAL ? (2 *(A B C)) rr B 
(EYAL * ((CAR ? (CDR)) ?’ (A B C))) P (BC) 


(EULIS <l>) [SUBR à 1 argument] 


retourne une liste composée des valeurs des évaluations de tous les 
éléments de la liste <l>. 


Cette fonction ut être décrite en VEISA : 


(DE EVLIS (D) + 
CIF (NULL L) 


O 
(CONS (EYAL (CAR LD) C(EVLIS (CDR 1))))) 


ex : (SETQ L *((ADD1 5) (ADD1 7) (ADD1 9))) 
EP ((ADD1 5) (ADD1 7) (ADDI 9)) 
(EVLISL) rr (6 8 10) 


(EPROGN <l>) [SUBR à 1 argument] 


évalue séquentiellement tous les éléments de la Liste <l>. EPROGN 
retourne la valeur de la dernière évaluation (i.e. celle du dernier 
élément de <b>). 


Cette fonction peut être décrite en MISP : 


(DE EPROGN CL) 
(IF (NULL (CDR LD) 
i (EVAL (CAR 1)) 
(EYAL (CAR L1)) 
(EPROGN (CDR 1)))) 


ex : (SETQ L °’(<(PRIN 1) (PRIN 2) (PRIN 3))) 
FF ((PRIN 1) (PRIN 2) (PRIN 3)) 
(EPROGN L) 123 HE” 


(PROGI <s1> ... <sN>) [FSUBRI 
évalue séquentiellement les différentes expressions <51> ... <sN>. 
PROG1 retourne la valeur de la première évaluation (i.e. celle de 
<s1>). 


PROG peut être décrite en MIS] de la manière suivante : 


(DF PROG1 (L 3; result) 
(SETQ result CEVAL (CAR L)) 
(EPROGN (CDR L)) 
result)) 
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ou bien sous forme d*EXPR : 


(DE PROG1 L (CAR L)) 
ex : (PROG1 (PRIN 1) (PRIN 2) (PRIN 3)) 1 2 3 FF 1 


PRÔOGT est souvent utilisé pour réaliser des effets de bord. 
Voici une MACRO (EXCH vari var2) qui réalise l’échange des 
valeurs des variables varl et var2 sans utiliser de mémoire 
auxilliaires : 
(DM EXCH (CL) 
(RPLACB L 
{LIST *SETQ (CADR 1) 
= (LIST *PROG1 (CADDR L) 
(LIST *SETQ (CADDR L) (CADR L)))))) 

avec cette MACRO un appel de type : (EXCH varl var2) 


est transformé en : (SETQ varl (PROGI var2 (SETQ var? varl))) 


(PROGN <s1> ... <sN>) [FSUBR] 


évalue en séquence Les différentes expressions <s1> ... <sN>. PROGN 
retourne la valeur de la dernière évaluation (ie. celle de <s\>). 


PROGN est la forme FSUBRée de la fonction EPROGN et peut donc 
étre décrite sous forme de FEXPR de la maniére suivante : 


(DF PROGN (CL) (EPROGN 1)) 
ou bien sous forme d*EXPR : 
(DE PROGN L (CAR (LAST L))) 
ex : (PROGN (PRIN 1) (PRIN 2) (PRIN 3)) 123 rr 3 


(QUOTE <s>) [FSUBR] 


retourne la S-expression <s> non-évaluée. Cette fonction est 
utilisée comme argument des fonctions de type SUBR ou EXPR dont on ne 
désire pas évaluer Les arguments. __ 

Il existe un macro-caractére standard qui facilite cette écriture, la 


caractère quote (l’apostrophe) ”? . Ce caractère placé devant une 
expression quelconque <s> fabriquera à la lecture la Liste (QUOTE 
<s>). 


QUOTE peut être défini en de la manière suivante : 
(DF QUOTE (L) (CAR L)) 


ex : (QUOTE (ADD1 4)) E” (ADDI 4) 
"(A (B 0) ER (A B 0)) 
"A rr À 
"A rr (QUOTE A) 
"**A rr (QUOTE (QUOTE A)) 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 31 / 143 


Page 32 8.2 Manuel de Référence 


3.2 LES FONCTIONS D'APPLICATION 


Dans certaines petites versions du systèmes 8 (comme les systèmes 
TRS80(K7) et SDK80), les arguments de type <fn> de ces fonctions ne 
peuvent être que de type lambda-expression. 


(APPLY <fn> <l>) [SUBR à 2 arguments] 


retourne la valeur de l’application de la fonction <fn> a la liste 
d’arguments <l>. La fonction <fn> doit être une fonction statique de 
n' importe quel type SUBR FSUBR EXPR FEXPR ou MACRO. 


ex : (APPLY (LAMBDA (x y) (+ x y) (LIST (148) (110 3))) K 10 


(APPLYN <fn> <s1> ... <sN>) [SUBR à N arguments] 


est équivalente à la fonction APPLY. Toutefois les arguments de la 
fonction ne sont pas regroupés sous la forme d’une liste mais sont 
arguments de la fonction APPLYN.  APPLYN est donc une autre forme de 
La fonction APPLY. 

L’appel (APPLYN <fn> <sl> ... <sN>) est équivalent 

à l'appel (APPLY <fn> (LIST <sl> ... <sN>)). 


APPLYN peut être défini en MISF de la manière suivante : 


(DE APPLYN L | 
(APPLY (CAR L) (CDR L))) 


ex : (APPLYN (LAMBDA (x y) (CONS x y)) "A ”B) EPR. (A.B) 


(MAP_<fn> <l>) [SUBR à 2 arguments] 
applique successivement la fonction <fn> à la Liste <l> puis à tous 
ses CDR. MAP retourne NIL en valeur. 


MAP peut être défini en MLISP de la manière suivante : 


(DE MAP (fn LU 
(TF (NULL LD 
O 
(APPLY fn (LIST 0) 
(MAP fn (CDR 1)))) 


ex : (MAP (LAMBDA (x) (PRINT x)) ? CA (B ©) D)) 
(A B C) D) 
((B © D) 
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(MAPLIST <fn> <l>) [SUBR à 2 arguments] 
| applique successivement la fonction <fn> à la liste <l> puis à tous 
ses CDR. MAPLIST retourne en valeur la Liste de toutes les 
applications successives. 


MAPLIST peut être défini en VCISP de la manière suivante : 


(DE MAPLIST (fn L) 
CIF (NULL Ll) 
O 


(CONS CAPPLY fn (LIST 0D)> (MAPLIST fn (CDR LD)))) 
ex : (MAPLIST (LAMBDA (x) (PRINT 9) ”(A (B ©) D)) 
(A (B C) D) 
((B ©) D) 


(D) 
KE (“A BC) D) ((B C) D) (D)) 


(MAPC_<fn> <I>) [SUBR à 2 arguments] 


applique successivement la fonction <fn> avec tous les CAR de la 
liste <l> comme argument. MAPC retourne NIL en valeur. 


MAPC peut être défini en de la manière suivante : 
(DE MAPC (fn L) 
ns L) 
0 
(APPLY fn (LIST (CAR LD)) 
(MAPC fn (CDR L)))) 
ex: ud (LAMBDA (x) (PRINT 3) ? (A (B ©) D)) 
BO 


D 
E? NIL 


(MAPCAR <fn> <l>) [SUBR à 2 arguments] 


applique successivement la fonction <fn> avec tous les CAR de la 
Liste <l> comme argument. MAPC retourne en valeur la liste des 
applications successives. 

MAPCAR peut être défini en de la manière suivante : 


(DE MAPCAR (fn D 
(IF (NULL 1) 


O 
(CONS (APPLY fn (LIST (CAR 13) (MAPCAR fn (CDR L))))) 
ex:  (MAPCAR (LAMBDA (x) (PRINT x)) ? (A (B C) D)) 
A 
(B C) 
D 
kP (A (B C) D) 
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(LAMBDA <l> <s1> ... <sN>) [FSUBRI 


la valeur d’une lambda-expression est cette  lambda-expression 
elle-même. Cette nouvelle fonction a été rajoutée pour éviter de 
"quoter" les lambda-express ions explicites des fonctions 
d'application. | 


LAMBDA peut être défini en sous forme d’une FEXPR : 
(DF LAMBDA (L) (CONS ?’LAMBDA L)) 
La définition sous forme de MACRO : 


(DM LAMBDA (L) L) 


ferait boucler la fonction interprète EVAL (voyez-vous pourquoi ?) 


ex : (LAMBDA (X) X) kP (LAMBDA (X) X) 
- (MAPC (LAMBDA (X) (PRIN X) ABO) ABC XP NIL 


CINTERNAL <s> <531> ... <sM>) [FSUBR] 


comme la forme LAMBDA la valeur d’une forme INTERNAL est cette forme 
elle-même. Cette nouvelle fonction a été rajoutée pour éviter de 
"quoter" Les fonctions explicites utilisées dans les fonctions 
d’application. | | 


INTERNAL peut être défini en sous forme d’une FEXR : 
(DF (INTERNAL (L) (CONS ? INTERNAL L)) 


ex : (INTERNAL 1SUBR -6326) F7 (INTERNAL 1SUBR -6326) 
; si l'adresse de la fonction CDR est -6329 
(APPLY (INTERNAL 1SUBR -6329) *(A B ©) rr (BC) 


(SELF <s1> ... <sN>) [SUBR à N arguments] 


retourne la valeur de l’application de la dernière lambda-expression 
utilisée dynamiquement aux différents arguments <s1> ... <sN>. 
Cette fonction permet de résoudre le problème des anciennes fonctions 
LABEL sans avoir à nommer obligatoirement les fonctions anonymes 
récursives. Si SELF est employée dans un mauvais contexte (i.e. a 
l'extérieur d’une lambda-expression), une erreur apparait dont le 
Libellé est : 


** erreur SELF. ou 
«x SELF error. 


SELF ne peut pas étre défini en 8.2 car cette fonction 
doit avoir accès à la pile de contrôle de l’ interpréte. 


ex : ((LAMBDA (L) 
CIF (NULL (CDR L)) 
(CAR L) 


(SELF (CDR L)))) 
* (A B C D)) 
rr D 
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(ESCAPE <at> <s1> ... <sN>) CESUBR] 


est la fonction de contrôle la plus puissante des systèmes  [VLISPI. 
<at> est un atome littéral qui devient le nom d’une fonction 
dynamique d*échappement, puis les différentes expressions <s1> 

<sN> sont évaluées en séquence. Si au cours de ces évaluations et à 
n' importe quel niveau d’ appel, une forme de type (<at> <ss1> 
<ssN>) est rencontrée, L'évaluation courante est stopppée, Les 
différentes expressions <ss1> ... <ssN> sont évaluées en séquence et 
la valeur de <ssM> est retournée directement comme valeur de la 
fonction ESCAPE (en abandonnant toute autre évaluation en cours). Si 
une telle forme n’est pas rencontrée, ESCAPE retourne la valeur de 
l’évaluation de <sN>. 

A la sortie du ESCAPE 1?” atome <at> ne possède plus la définition de 
fonction d’ échappement qu’il avait donc eu de manière provisoire 
(durant l'exécution du corps de la fonction ESCAPE). 


ex : (ESCAPE TERM 
(MAPC (LAMBDA CX) CIF (NUMBP X) (TERM ?OUT))) 
*’(AB 2 C 3)) 
NON) 
KF OUI 


Dans cet exemple L’ Evatuation de -CTERM OUI) retourne directement la 
EE OUI à la fonction ESCAPE sans attendre la fin de l'évaluation 
du MAPC. 


(LIST (FTYPE *TERM) 
(ESCAPE TERM (FTYPE ? TERM)) 

(FTYPE > TERM)) 

IP (NIL ESCAPE NIL) 


(EXIT <81> ... <sN>) [FSUBRI 


évalue les différentes expressions <st> ... <sN> en séquence et 
retourne la valeur de la dernière évaluation <sN>. De plus EXIT fait 
sortir de la dernière fonction appelée dynamiquement (fonction 
utilisateur de type DE, DF ou DM, fonction anonyme de type LET, 

LAMBDA ou INTERNAL ou fonction dynamique de type WHERE ou ESCAPE) 
avec pour valeur la valeur du EXIT. | 

Si un appel de EXIT ne se trouve pas à l’intérieur d’une fonction une 
erreur apparait dont le Libellé est : 


** erreur EXIT. ou 
** EXIT error. 


ATTENTION : cette fonction s’appelait LESCAPE dans une version 
antérieure de [WLISPI. | 


ex : (LET ((n 5) Ct NIL)) 


(WHILE T 
(IF (= n 0) 
(EXIT D 


(SETQ t (CONS (SETA n (1- n)) 1))))) 
tr (01234) 
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3.3 LES FONCTIONS DE CONTROLE 


Toutes les fonctions de cette section vont permettre de rompre le 
déroulement séquentiel des évaluations. C’est la raison pour laquelle 
elles sont toutes de type FSUBR i.e. que les arguments ne seront pas 


évalués par EYAL mais pour les fonctions elles-mêmes et cela 
sélectivement. 


La fonction de contrôle la plus simple est la fonction conditionnelle IF. 
Cette fonction va être utilisée pour décrire en VLISP toutes les autres 
fonctions de contrôle sous forme de FEXPR. Rappelons qu’à l’appel d’une 
fonction de type FEXPR la liste des arguments non évalués (i.e. Le CDR de 
l’appel lui-même) est liée à la lère variable de la liste des variables et 
le reste des variables de cette liste sont toutes liées à la valeur NIL. 


CIF <81> <s2> <s3> ... <sM>) [FSUBRI 
si la valeur de l'évaluation de <s1> est différente de NIL, IF 
retourne la valeur de l’évaluation de l'expression <s2>, sinon IF 
évalue en séquence les différentes expressions <s3> ...  <sN> et 
retourne La valeur de la dernière évaluation <sN>. IF permet de 
construire une structure de contrôle de type : 


si <s1> alors <s2 sinon (s3> ... <sN> 


ex: (FT12 3) kP 1 
(IF NIL 123) F 3 


; voici la fonction d’ ACKERMANN décrite avec des IF 
(DE ACK (x y) 


(IF (= x 0) 
(1+ y) 
(CACK (1- x) 
A 0) 


CACK x (1- y)))))) 


CIFN <s1> <s2> <s3> ... <sN>) [FSUBRI 


si la valeur de l’évaluation de <s1> est égale à NIL, IFN retourne la 
valeur de l'évaluation de l’expression <s2>, sinon IFN évalue en 
séquence les différentes expressions <s3> ... <sN> et retourne la 
valeur de la dernière évaluation <sN>. IFN permet de construire une 
structure de contrôle de type : 


si non <s1> alors <s235 sinon (s3> ... <sN> 


` 


IFN est donc équivalent à (IF (NOT <si>) <s2> <s3> ... <sN>). 
et peut être défini en de la manière suivante : 


(DF IFN (1) 
(IF (NOT (EVAL (CAR 1))) 
(EVAL (CADR 1D) 
(EPROGN (CDDR L)))) 


ex : (IFN T 1 2 3) rr 3 
(IFN NIL 123) rr 1 
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(OR <s1> ... <sN>) [FSUBRI 


évalue successivement les différentes expressions <s1> ... <sN> 
jusqu’à ce que l’une de ces évaluations ait une valeur différente de 
NIL. OR retourne cette valeur. 


OR peut être défini en VLISP de la manière suivante : 


(DF OR Cl 3; resul) 
(LET CL L) 
| CIF (NULL (CDR L)) 
(EVAL (CAR D) 
(IF (SETQ resul (EYAL (CAR 1))>) 
E "E - resul... 
(SELF (CDR 1)))))) 


ex : (OR NIL NIL 23) Er 2 


(AND <s1> ... <sN>) [FSUBR] 


évalue successivement les différentes expressions <s1> ... <sNi> 
jusqu’à ce que la valeur d’une évaluation soit égale à NIL, à ce 
moment AND retourne NIL sinon AND retourne la valeur de la dernière 
évaluation <sN>. Si aucune expression n’est fournie, cette fonction 
retourne T. AND permet de construire une structure de contrôle de 
type : | 


si ¿sD alors si (s23 alors ... <s>) 


AND peut être défini en NUSP] de la manière suivante : 


(DF AND (L) 
E ia L) 
(LET (LL) 


CIF (NULL (CDR LL) 

(EVAL (CAR L)) 
(IF (EYAL (CAR D) 
(SELF (CDR L)) 


NIL))))) 
ex : (AND) EE T 
(AND NIL) IP NIL 


(AND 1234) tr 4 
(AND 1 2 0 4) fr NIL 


CCOND <11> ... <IN>) [FSUBRI 


est la fonction conditionnelle la plus générale de MIS Les 
différents arguments <l1> ... <IN> sont des listes appelées clauses 
qui ont la structure suivante : 
_. (<ss> <s1> .,. . <s\>) .... E 

COND va sélecter une seule de ces clauses : celle dont la valeur de 
l’évaluation de son premier élément <ss> est différente de NIL. COND 
évalue alors en séquence les différentes expressions <s1> ... <sN> 
de la clause sélectée et retourne la valeur de la dernière évaluation 
<sN>. Si la clause sélectée n’a qu’un élément <ss>, COND retourne la 
valeur de l’évaluation de <ss> (i,e. La valeur qui a déclenché la 
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sélection de cette clause). COND permet de construire des Structures 
de contrôle de type : 


Si ... alors .., sinon si ... alors ... ,.. 


Si aucune clause n’est sélectée, COND retourne NIL. Pour forcer la 
sélection de la dernière clause, il est d’usage d'utiliser comme 
sélecteur l’atome T (dont la valeur est toujours différente de NIL). 


COND peut être défini en NLISP] de la manière suivante : 


(DF COND (L 53 select) 
(LET CL L) 
a s L) 
(SETQ select (EYAL (CAAR 1))) 
(IF select =... 
(IF (CDAR 1) 
(EPROGN (CDAR L)) 


.. select) 
select)))) 
donc : | est équivalent à : 
(COND (COND 

(p1 ell e12 el3) (p1 (PROGN ell el2 el3)) 
(p2 e21 e22) (p2 (PROGN e21 e22)) 
(p3) ( (SETQ aux p3) aux) 
(p4 e41)) (p4 e41)) 


ex : (COND (NIL 1 2) CT 345) P 5 


(COND ((ATOM X) ’ ATOM) 
((LISTP (CAR X)) *LIST) 
( (NULL (CDR X)) NULL) 
(T ’What?17)) | 


(SELECTA <s> <11> ... <i> <lf>) LFSUBRI 


comme pour la fonction COND, SELECTQ va sélecter une des clauses <l1> 
.. <INW>. Le sélecteur de ces clauses est la valeur de l'évaluation 

de <s>, la sélection s’effectue par comparaison du sélecteur avec : 

= le CAR (non évalué) de la clause si celui-ci est un atome littéral 
(en utilisant le prédicat EQ). 

- les différents éléments du sélecteur si celui-ci est une liste (en 

utilisant la fonction de recherche MEMBER). Cette dernière 

possibilité permet donc de sélecter des objets de n* importe quel type 

et ce en nombre que lconque. 

Dès qu’une clause est sélectée, SELECTO évalue en séquence le reste 

de la clause et retourne la valeur de la dernière évaluation. 

Si aucune des clauses <l1> ... <IN> n'est sélectée, SELECTA selecte 

automat iquement la dernière clause <lf> et retourne la valeur de de 
la dernière évaluation de <lf>. 

Cette dernière clause peut commencer par l’atome T, ce qui n’influe 

pas sur l’évaluation de la clause, mais permet d’avoir une écriture 

analogue à la fonction COND. 

SELECTA permet donc de construire des aiguillages sur valeurs 

constantes. 

Il est possible de mettre l'atome T en position sélecteur de la 

dernière clause à la manière des COND. 


SELECTA peut être défini en MISP de la manière suivante : 
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(DF SELECTA (L) 
= (LET ((sel (EVAL (CAR L))) (cl (CDR L))) 
o y sel = le sélecteur évalué, cl = les clauses non évaluées 
(COND 
((NULL (CDR cl?) 
s sélection de la clause <lf> 
(EPROGN (CAR cL))) 
(CAND (LITATOM (CAAR cl) CEQ sel (CAAR cl)?)) 
: sélection simple 
(EPROGN (CDAR cL))) 
(CAND (LISTP (CAAR cl)) (MEMBER sel (CAAR cl))) 
+: Sélection générale 
CEPROGN (CDAR cL))) 
_ (T (SELF sel (CDR cl)))))) 


ex : (SELECTQ ROUGE 
. (VERT *ESPOIR> 
(ROUGE * OK) 
(T ?NON)) 
rr OK. | 


(SELECTQ ? ROUGE 
((BLEU VERT ROUGE) * COULEUR) 
( (ROSE IRIS) ? FLEUR) 
(T *SAIS-PAS)) | 

rr COULEUR 


(WHILE <s> <s1> ... <sN>) [FSUBR] 


tant que la valeur de l'évaluation de <s> est différente de NIL, 
WHILE va. évaluer en séquence les différentes expressions <s1> ... 
<sN>. WHILE retourne toujours NIL en valeur (qui est la dernière 
évaluation de <s> qui fait sortir de la boucle WHILE). Cette 
fonction permet de construire des boucles conditionnelles d’une 
manière fort commode, ainsi que des boucles infinies en utilisant la 
forme : (WHILE T ... ) car l’atome T possède toujours une valeur 
différente de NIL. 


WHILE est équivalent à la forme VLISP] : 

((LAMBDA O (IFN <s> NIL <sl> ... <sN> (SELF))) 0) 
ou bien 

(LET O (IFN <s> NIL <si> ... <sN> (SELF))) 
WHILE peut étre défini en de la manière suivante : 

(DF WHILE (D 
(LET © 
(IF (NULL (EVAL (CAR 192) 


O 
(EPROGN (CDR 1)) 
(SELF) ))) 


ex : (SETQ S "(ABC D)) rr (ABC D) 
(WHILE S (PRIN (NEXTL S))) ABC D E” NIL 
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CUNTIL <s> <s1> ... <sN>) [FSUBR] 
tant que la valeur de l’évaluation de <s> est égale à NIL, UNTIL va 
évaluer en séquence les différentes expressions <s1> ... <sMN>. 
UNTIL retourne la valeur de la lère évaluation de <s> différente de 
NIL (celle qui fait sortir de la boucle UNTIL). Comme la fonction 
précédente, UNTIL permet de construire des boucles conditionnelles 


d’une manière fort commode, ainsi que des boucles infinies en 
utilisant la forme : (UNTIL (© ... ). 


UNTIL est équivalent à la forme : 

((LAMBDA O COR <s> (PROGN <sl> ... <sN> (SELF))))) 
ou bien (à la valeur retournée pres) : 

(WHILE (NOT <s>) <sl> ... <sN>) 
UNTIL peut étre défini en de la maniére suivante : 
(DF UNTIL (0) | | 

(LET O 
(OR (EVAL (CAR D) 
(PROGN (EPROGN (CDR 1)) (SELF))))) 


ex : (SETQ S ? (A B C D)) EF GBC D) 
(UNTIL (NULL S) (PRIN (NEXIL S))) ABCD Er NIL 


(REPEAT_<n> <s1> ... <sN>) [FSUBRI 


évalue l'expression <n>. Cette valeur doit être un nombre <n> 
REPEAT évalue alors <n> fois les différentes expressions <s1> ... 
<sN>. Si L’évaluation de <n> n'est pas un nombre strictement 
positif, La boucle n’est pas exécutée. Dans tous les cas REPEAT 
retourne NIL. 


REPEAT peut être défini en MISP de la manière suivante : 
(DF REPEAT (L) 
(LET C(ín (EYAL (CAR 1233 CL (CDR L?) 
- CIF (<= n 0) 


O 
(EPROGN 1) 
(SELF (1- n) 1)))) 


ex : (REPEAT 10 (PRIN °w) o x ok x ok x ok x x x 7 NIL 
(REPEAT 0 (PRIN *x)) Er NIL 
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En (comme dans la plupart des LISP modernes) la valeur Booléene 
fausse" est assimilée à la valeur NIL et la valeur booléenne "vraie" est 
assimilée à toute valeur différente de NIL (ce qui laisse un très grand 
choix de représentation ...). : a 

Certains prédicats devant retourner une valeur  booléenne "vraie" 
utiliseront l’atome spécial T (initiale du TRUE anglais) qui par 
définition possède une valeur différente de NIL (la valeur de l'atome T 
est l’atome T lui-même). 

Cette section ne décrit que les prédicats de base. Les tests de 
l’arithmétique entière et mixte sont décrits aux sections 3.15 et 3.16. 


(ATOM <s>) [SUBR à 1 argument]. 


teste si <s> est un atome, i.e. un atome littéral ou un nombre. 
ATOM retourne T si ce test est vérifié, NIL dans le cas contraire. 


ex : (ATOM * ARGH) KE T 
(ATOM OUPS") X° T 
(ATOM 42) FF T 
(ATOM °’ CA BD) E” NIL 


(LITATOM <s>) [SUBR a 1 argument] 


teste si <s> est un atome littéral. LITATOM retourne T si le test 
est vérifié et NIL dans le cas contraire. 


ex : (LITATOM *ARGH) xP T 
(LITATOM "OUPS") E” 7 
(LITATOM 44) E? NIL 
(LITATOM (A B) EP 


(NUMBP <s>) [SUBR a 1 argument] 


teste si <s> est un nombre. NUMBP retourne le nombre <s> si le test 
est vérifié et NIL dans le cas contraire. 


ex : (NUMBP *ARGH) E? NIL 
(NUMBP "DUPS") KF 
(NUMBP 44) TE 44 
(NUMBP * (A B)) x 


(LISTP <s>) [SUBR à 1 argument] 


teste si <s> est une liste. LISTP retourne la liste <s> si le test 
est vérifié et NIL dans le cas contraire. 


ex : (LISTP *ARGH) LT NIL 
(LISTP "OUPS") kr NIL 
(LISTP 44) kP NIL 
(LISTP * CA B) © (AB) 
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(EQ <s1> <s2>) [SUBR à 2 arguments] 
sert à tester 2 atomes littéraux. EQ retourne T si les 2 atomes 
Littéraux <s1> et <s2> sont égaux et NIL s’ils ne Le sont pas. Dans 
le cas où les arguments ne seraient pas des atomes littéraux, la 
fonction EQ va tester l'égalité des représentations internes des 
arguments <s1> et <s2> (EQ teste donc si les deux arguments ont la 
même adresse physique). | 
La représentation interne des nombres variant en fonction des 
différents systèmes, il est recommandé d’utiliser la fonction = (qui 
est décrite avec les prédicats numériques) pour tester l'égalité des 
valeurs numériques). 


ex : (EQ *A (CAR ? (A))) FP T 
(EQ "STRR" "STRR") - rr TI 
(EQ (ADD1 119) 120) EP T ou NIL en fonction des systèmes 
(EQ * (A B) ” (A B)) E? NIL 
(SETQ L ? (x y)) kP (x y) 
(EQ L L?) T 


x 


(NEQ <s1> <s2>) [SUBR à 2 arguments] fpour Not EQ)? 
est équivalent à (NOT (EQ <s1> <s2>)). 
NEQ peut être défini en de la manière suivante : 


(DE NEQ (sl s2) | 
(IF (EQ sl s2) NIL T)) 


(EQUAL <s1> <s2>) [SUBR à 2 arguments] 


Satan 


est la fonction de comparaison la plus générale et doit être utilisée 
dès que le type des objets à comparer n’est pas précisément connu. 
Si <s1> et <s2> sont des atomes littéraux, EQUAL est identique à la 
fonction EQ. Si <s1> et <s2> sont des nombres, EQUAL est identique à 
la fonction = sinon si <s1> et <s2> sont des Listes, EQUAL teste si 
elles possèdent la même structure (i.e. si les listes possèdent les 
mêmes éléments). Si le test est verifié, EQUAL retourne cette 
structure dans le cas contraire EQUAL retourne NIL. 


EQUAL peut étre défini en VLISP] de la manière suivante : 


(DE EQUAL (11 12) 
- (COND C(LITATOM 11) 
(IF (LITATOM 12) (EQ 11 12) 0)) 
((NUMBP 11) 
(IF (NUMBP 12) (= 11 12) 0)) 
(CATOM 12) 0) p 
(CAND (EQUAL (CAR 11) (CAR 12)) 
(EQUAL (CDR 11) (CDR 12))) 
1133) 


ex : (EQUAL "Foo bar" "Foo bar") rr” T 
(EQUAL 1214 (1+ 1213)) rr 1214 
(EQUAL ? (A B. C) D) *(4 (B.C)D) Er AG. C) D) 
(EQUAL ? (A B C) *(ABC D)) k NIL 
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(NEQUAL <s1> <s2>) [SUBR à 2 arguments] {pour Not EQUAL} 


est équivalent à (NOT (EQUAL <s1> <s2>)). 
NEQUAL peut être défini en de La manière suivante : 


(DE NEQUAL (sl s2) 
(IF (EQUAL s1 s2) NIL T)) 


(NULL <s>) [SUBR à 1 argument] 


teste si <s> est égal à NIL. NULL retourne T si le test est vérifié 
et NIL dans le cas contraire. 


NULL peut être défini en de la manière suivante : 
(DE NULL (s) 


(EQ s NIL)) | 
ex : (NULL NIL) rr T 


(NULL T) E? NIL 


CNOT <s>) [SUBR à 1 argument] 


effectue Ll” inversion de la valeur booléenne <s>. Du fait de la 
construction des valeurs booléennes en  [LISPI, cette fonction est 
identique à la fonction NULL. | 


(BOUNDP_<at>) [SUBR à 1 argument] 

("argument <at> doit être un atome littéral. La fonction BOUNDP 
teste si la valeur de cet atome littéral est définie ou non (un atome 
littéral est indéfinie si sa valeur est égale à l’atome UNDEF). Si 
l’atome est indéfinie, BOUNDP retourne la valeur NIL, sinon si 
l’atome possède une valeur BOUNDP retourne T. Cette fonction permet 
donc de tester si une variable possède une valeur sans déclencher 
l’erreur : xx erreur variable indéfinie : 


BOUNDP peut être défini en de La manière suivante : 


(DE BOUNDP (at) 
(NEQ CCVAL at) *UNDEF)) 


ex : (BOUNDP T) Fr T 
(BOUNDP NIL) EP T 
(BOUNDP ° foofoo) EP NIL 
- si foofoo n’a pas de valeur - 
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3.5 LES FONCTIONS DE RECHERCHE 


(CUAL <at>) LSUBR à 1 argument] 


retourne la valeur de l'atome littéral <at>. Cette fonction permet 
d'accéder directement à La C-VAL d’un atome littéral sans risque de 
provoquer l'erreur : 

ok erreur variable indéfinie : 


Du fait de l*implantation particulière des atomes littéraux en 
VCISP] 8, cette fonction est identique à la fonction CAR mais doit être 


utilisée de préférence à La fonction CAR par souci de 
transportabilité des programmes [VLISPI,. 


ex : (SETQ X * (A B)) rP (A B) 


(CVAL ?X) rr (A B) 

X rr (A B) 

Aia ’ Buzz) kP UNDEF (si l’atome Buzz est indéfini) 
UZZ 


** erreur variable indéfinie : Buzz 


(CAR <s>) [SUBR à 1 argument] 


si <s> est une liste, retourne son premier élément. 

Le CAR d’un nombre est indéterminé. 

Si <s> est un atome littéral, CAR est équivalent à La fonction 
précédente CVAL. 


ex : (CAR * (À B C)) FF À 
(SETA X U P)) Er UP) 
(CAR *X) rr (U P). 
(CAR X) kP U 


(CDR <s>) [SUBR à 1 argument] 


si <s> est une Liste, retourne cette Liste sans son premier élément. 
Le CDR d’un nombre est indéterminé. 

Du fait de Ll’implantation particulière de 8, si <s> est un atome 
Littéral, La fonction CDR retourne la P-LIST de cet atome (voir la 


fonction PLIST). i 


ex : (CDR ”(A B C)) IP (BC) 
(PUT °X ° UP *D Er X 
(CDR *X) FF (I (UP)) 


(C...R <s>) [SUBR à 1 argument] 


les 14 combinaisons de CAR et de CDR imbriqués (jusqu’à 3 niveaux) 
sont disponibles. 

(CADR <s>) est équivalent à (CAR (CDR <s>)) 

(CDAAR <s>) est équivalent à (CDR (CAR (CAR <s>))) 
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(MEMQ <at> <i>) [SUBR à 2 arguments] 
© si L’atome littéral <at> est un élément de la liste <l>, retourne la 
partie de la liste <l> commençant à l'atome littéral <at>, sinon 


retourne NIL. Cette fonction utilise le prédicat EQ pour tester la 
présence de l'atome littéral <at> dans la liste <l>. 


MEMQ peut être défini en VLISP de la manière suivante : 


(DE MEMQ (at 1) 
(IF COR (ATOM OD (EQ at (CAR L))) 
l | 


(MEMQ at (CDR L)))) 


ex : (MEMQ °C °’(A BCDE) kr (CDE) 
(MEMQ ?’Z °’(ABCDE)) Er NIL 


(MEMBER <s> <L>) [SUBR à 2 arguments] 
si L expression <s> est un élément de la liste <l>, retourne la 
partie de la Liste <l> commençant a l'élément <s>, sinon retourne 


NIL. Cette fonction utilise Le prédicat EQUAL et permet donc de 
rechercher un élément de n° importe quel type dans une liste. 


MEMBER peut étre défini en de la manière suivante : 


(DE MEMBER (s Ll) 
CIF ll (ATOM 1) (EQUAL s (CAR 103) 


(MEMBER s (CDR 1)3)) 
ex : (MEMBER *'C *(ABCODE)) rr (CDE). 


(MEMBER *Z ? (A B C D E)) EP NIL 
(MEMBER *(A B) *(4 (AB) C)) EP ((A B) C) 


(NTH_<n> <L>) [SUBR à 2 arguments] 
retourne la partie de la liste <l> commençant à son <n>ième élément. 
Si <l> n'est pas une liste ou si (LENGTH <L>) est plus petit que <n>, 
NTH retourne NIL. Si <n> <= 1, NTH retourne la liste <l> en entier. 
NTH peut être défini en VCR VLISP] de La manière suivante : 


(DE NTH (n L) 
(IF (<= n 1) 


L 
(NTH (1- n) (CDR W))) 
ex : (NTH3’(ABCDE)) # (CDE) 


CCNTH <n> <l>) [SUBR à 2 arguments] f pour Car NTH} 


retourne le <n>ième élément de la liste <l>. CNTH est équivalent à 
(CAR (NTH <n> <(>)). 


L’appel de CNTH est implicite en cas de forme dont la fonction est un 
nombre (cf: |” interprete). 
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CNTH peut étre défini en de la maniére suivante : 
(DE CNTH (n 0) 
(IF (<= n 1) 


(CAR D | 
(CNTH (1- n) (CDR 1)))) 


ex : (CNTH 3 ’(ABCDEF)) rr C 
((1+ 4) °C BCDE F)) E? E 


(LAST <s>) ESUBR a 1 argument] 
si <s> est une Liste, retourne la liste composée de son dernier 
élément. si <s> n’est pas une Liste, retourne <s> lui-même. 


LAST peut être défini en NUISP] de la manière suivante : 


(DE LAST (s) 
(COND 
( (ATOM s) s) 
(<ATOM (CDR s)) s) 
(T (LAST (CDR s))))) 


ex : (LAST ’(A B C D E)) K (Œ) 


(LAST °A BC. D) W (C.D) 
(LAST 120) | IP 120 


(LENGTH <s>) [SUBR a 1 argument] 


si <s> est une liste, retourne le nombre d'éléments de cette liste. 
Si <s> n'est pas. une Liste (donc si <s> est un atome), LENGTH 
retourne 0. 

LENGTH peut être défini en MISP de la manière suivante : 


(DE LENGTH CL 
CIF ~ L) 


(1+ (LENGTH (CDR 1))))) 


ex : (LENGTH *(4A BCOODE) Er 4 
(LENGTH "Esar") rr 0 
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3.6 LES FONCTIONS DE CREATION DE LISTES - 


Toutes les fonctions qui vont être décrites fabriquent de nouvelles 
Listes. La gestion de la mémoire allouée aux Listes est dynamique et 
automatique (voir la section 4.2.2 sur le Garbage-collecting). 


ATTENTION : dans certaines versions de [VLISP] 8, il n’est pas permis de 
créer des doublets de Liste dont Le CDR est un nombre entier. Si un tel 
cas se produit, une erreur fatale apparait dont le Libellé est : 


** erreur CDR numér ique. ou 
** numeric CDR. 


(CONS <s1> <s2>) [SUBR à 2 arguments] 


construit une liste dont le premier élément est <s1> et le reste la 
Liste <s2>. Si <s2> est un atome, CONS produit la paire pointée 


(<s1> , <se>) 
ex : (CONS *A ”* (B C)) EP (ABC) 
(CONS 1 °X) KE (1 . X) 
(SETQ L ?(X Y 2)) FE (XYZ) 
(EQUAL (CONS (CAR 1) (CDR L) 


D P XYZ 


Trouvée par D. Goossens, 
voyez-vous ce que construit cette fonction ? 


(DE FOO CL ;; x) 
CIF (ATOM 1) 
(CONS L x) | 
(FOO (CAR 1) CIF (CDR O (FOO (CDR O x) x)))) 


+r +o. 


exemple d'appel : 


(FOO ? (A (B. €) (DD). 


(MCONS <s1> ... <sN>) [SUBR à N arguments] fpour Multiple CONS 


réalise un CONS multiple. L’appel de : 
(MCONS sl s2 ... sN-1 sN) 

équivaut à l'appel 
(CONS s1 (CONS s2 ... (CONS sN-1 sN) ... )) 


MCONS peut être défini en [VLISP] : 
sous forme d’une FEXPR : 
(DF MCONS (L) 
(CONS (EYAL (CAR L1)) 
(EYAL CIF (NULL C(CDDR L)) 


(CADR LU 
(CONS *MCONS (CDR L)))))) 
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ou bien sous forme d’une MACRO 


(DM MCONS (L) 
(LIST ”*CONS (CADR L) 
CIF (NULL (CDDDR L)) 
= (CADDR 1) 
(CONS ”MCONS (CDDR L))))) 


ex : (MCONS *A ’B) EP (A. B) 
(MCONS *A °B ?’C) rr (AB. C) 


(LIST <s1> ... <sN>) [SUBR à N arguments] 
retourne la liste des valeurs des différentes expressions 
<s1> .., <s>. 
En terme de CONS l*appel (LIST <s1> <s2> ... <sN-1> <sN>) 
est équivalent à 
(CONS <s1> (CONS <s2> ... (CONS <sN-1> (CONS <sN> NIL)) ... D). 


LIST peut être défini en | 
sous forme d*EXPR : 
(DE LIST 1 Ll) 
ou sous forme de FEXPR : 
(DF LIST (LD) 
(LET (lL D) 
(IF (NULL 15 


O 
(CONS (EVAL (CAR 0) 
(SELF (CDR 133333) 


ou sous forme de MACRO : 


(DM LIST CL) 
CIF (NULL (CDR 1)) 
NIL | 
(RPLACB L 
(CONS ”CONS 
(CONS (CADR L) 
T iaaa (CDDR L)) 
IL 
(CONS (CONS *LIST (CDDR L))))))))) 


ex : (LIST °A ?B °C) rr (ABC) 
(LIST) | kP NIL 


(APPEND <l> <s>) [SUBR à 2 arguments] 
retourne la concaténation d’une copie du premier niveau de la liste 
<l> à l’expression <s>. Si <s> n’est pas fourni, (APPEND <l>) 
retourne simplement une copie du premier niveau de <l>. 
APPEND peut être défini en VLISP] de la manière suivante : 


(DE APPEND (l s) 
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(UF (NULL D 
S 
(CONS (CAR 1) (APPEND (CDR L) s)))) 


ex : (APPEND ? (A B C)) KE (ABC) 
(APPEND ? (A B C) ? (X Y) rr (ABC X Y) 


(APPEND O ?CX Y)) EP (X Y) 


(REVERSE <s > <s2>) [SUBR à 2 arguments] 


retourne une copie inversée du premier niveau de la liste 


Page 43 


<s1>, Si 


le deuxiéme argument est fourni, il est ajouté a la fin de la copie 


de la première liste inversée. 


REVERSE peut être défini en MISP| de la manière suivante : 


= (DE REVERSE (sl s2) 
= (IF (ATOM s1) 


S2 | ja en Re o a 
(REVERSE (CDR s1) (CONS (CAR s1) s2)))) 


ex : (REVERSE ? (A (B ©) D)) Fr (D (B O) A) 
(REVERSE ? ((X Y) (U P)) °G 0) P (U P (X Y) G 0) 


On prétend parfois que cette fonction inverse aussi la liste L 


(DE REV (Ll) 
CIF (NULL (CDR 1)) 
| | 


(CONS (CAR (REY (CDR L))) 
(REV (CONS (CAR 1) 


(REV (CDR (REY (CDR 1233333) 


(COPY <l>) [SUBR à 1 argument] 


fabrique une nouvelle copie de toute la Liste <l>. 


cette 


fonction la copie s'effectue à tous les niveaux de l*arborescence. 


COPY peut être défini en MISP de la manière suivante : 


(DE COPY (s) 
(IF (ATOM s) 


S 
(CONS (COPY (CAR s)) (COPY (CDR s))))) 


ex : (COPY *A) . | KP A 
(COPY * (A (B (C (D)))) EP (A (B (C (D)))) 


Cette fonction ne traite pas les Listes circulaires ou partagées. 


Pour cela il faut utiliser la fonction : 


(DE CIRCOPY CL 53 d) 
(LET (<l L) Men) 
(COND 


(CATOM L) D 
((CDR (ASSQ Ll d))) 
(T (SETQ new (CONS NIL NIL) 
| d (CONS (CONS L new d)) 
(RPLACA new (SELF (CAR 1))) 
(RPLACD new (SELF (CDR 1))))))) 
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-u ám 


(SUBST <s1> <s2> <l>) [SUBER à 3 arguments] 


fabrique une nouvelle copie de toute la liste <l> en substituant à 
chaque occurrence de l’expression <s2>, l’expression <s1>. Si les 
deux expressions sont les mêmes pointeurs physiques (i.e. si (EN 
<51> <s2>) = T), l* interprete se permet d'appeler la fonction COPY à 
la place de SUBST, L’exécution de la fonction COPY étant beaucoup 
plus rapide. 


SUBST peut être défini en [VLISP] de la manière suivante : 


(DE SUBST (si s2 L) 
(IF (EQ sl s2) 
. (COPY 1) 
(LET CL 1) 
(COND ((EQ l s2) s1) 
(CATOM L) L) 
(T (CONS (SELF (CAR L)) 
(SELF (CDR 12)))3))) 


ex : (SUBST *(X Y Z) °A *(AC © dd 
Er CCX Ÿ 2) C (D (X Y Z))) 


COBLIST) LSUER à O argument] 


une la (très longue): bete de tous les Stones LLttér aux a 
dans le système. Cette liste ne contient pas l’atome UNDEF A 
L initialisation du système, cette Liste contient le nom de toutes 
les constantes littérales et de toutes les fonctions standards. 


nl n rest pas possible de définir simplement cette fonction en [MVLISP] 8 
car il faut accéder aux propriétés naturelles de type A-LINK de 
chacun des atomes, ce qui n’est réalisable qu’avec les fonctions LOC 
et MEMORY. 


ex :  (OBLIST) FF 


(NIL OSUBR 1SUBR 2SUBR 3SUBR NSUBR FSUBR EXPR 
FEXPR MACRO T LAMBDA 8 QUOTE GC EDITY CLEAR 
DISPLAY POINT WINDOW 1C PRINT PRIN PRINTLEVEL 
RMARGIN LMARGIN OUTPOS PTYPE EXPLODE TERPRI 
PRINCH OBASE READ PEEKCH READCH TEREAD ASCII 
CASCII TYPECH IMPLODE EVAL APPLY EXIT SELF 


e $% "s 4 


MEMORY CALL EXECUTE STOP) 
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3.7 LES FONCTIONS DE MODIFICATION 


Toutes les fonctions qui vont être décrites dans cette section doivent 
être utilisées conformément au mode d’emploi, pour éviter de placer le 
système dans un état de confusion dramatique car elles vont permettre de 
modifier physiquement les structures [MLISP. 

Toutefois la possibilité d’une véritable chirurgie sur les représentations 
internes des objets confère à la puissance des langages machines. 


Une erreur se produit en cas de tentative de modification de constante 
(i.e. un nombre où une constante littérale de type NIL T ...). 
Le libellé de cette erreur est : 


** erreur modification de constante : <cst> ou 
** altered constant : <cst> | 


dans lequel le nom de la constante modifiée <cstà est imprimé. 
Pour ces fonctions L'argument <obj> représente soit un atome littéral soit 


une liste. En MISP 8, modifier Le CAR d’un atome littéral revient a 
changer sa C-VAL, modifier son CDR revient à modifier sa P-LIST. 


(RPLACA <obi> <s>) [SUBR a 2 arguments] our RePiACe cAr 


remplace le CAR de <obj> par <s>. Retourne le nouvel <obj> en 


ex : (SETQ X ?” (A B)) EP (AB) 
(RPLACA °X ? (CD) ER X 
X KP (C) 
(RPLACA X ’D) kr (D) 
A r (D) 


(RPLACA ? CA BCO *(X Y) EF X Y) BO) 


(RPLACD <obj> <s>) [SUBR à 2 arguments] our RePLACe cDr 


remplace le CDR de <obj> par <s>. Retourne le nouvel <obj> en 
valeur. 


ex : (RPLACD * (A BC) °X Y 22) P (AXYZ) 


(RPLACB <obi> <i>) [SUBR a 2 arguments] our RePLACe Both 


remplace le CAR de <obj> par le CAR de <L> et le CDR de <obj> par le 
CDR de <i>. Cette fonction est souvent utilisée dans des MACRO pour 
modifier physiquement l'appel de MACRO lui-même. 


RPLACB peut être défini en de la manière suivante : 


(DE RPLACB (obj L) 
(RPLACA obj (CAR L)) 
(RPLACD obj (CDR 1)) 
obj) | 


ex : (SETQ L1 ? (A B C)) Er (ABC) 
(SETQ L2 L1) Er (ABC) 
(RPLACB L1 ? CX Y)) rr (X Y) 
L2 FE Q Y 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 51 / 143 


Page 52 8. 2 Manuel de Référence 


(SET <obj> <s>) [SUBR à 2 arguments] 


remplace le CAR de <obj> par la valeur <s>. SET retourne 


valeur 


<s>, A la valeur retournée près, (SET <obj> <s>) est équivalent à 


(RPLACA <obj> <s>). | 
ex : (SET *(A BC) ° °X FP XY 


(SETA <at1> <s1> ... <atN> <sM>) CFSUBR] 


<at1> ... <atN> sont des atomes littéraux qui ne sont pas 
<s1> ... <sN> sont des expressions quelconques qui seront 
SETA est la fonction d'affectation la plus utilisée : 
<ati> est initialisé avec l’expression correspondante 


retourne <sN> en valeur. 


ex : (SETA L1 *(ABC)) © (ABCO) 
(SETQ L2 L1) rr (ABC) 
(SETA L3 L2 L4 *FOD) xr” FOO 
L3 rr (ABC) 


(NEXTL <at>) [FSUBR] {pour NEXT List} 


<at> (qui n’est pas évalué) doit être un atome 


évalués ; 
évaluées. 
chaque atome 
<si>. SETQ 


dont la 


valeur doit être une liste. NEXTL retourne le CAR de cette liste en 


valeur et donne comme nouvelle valeur de <at> le CDA de son 


ancienne 


valeur. Cette fonction est très utile pour "avancer dans une liste" 


qui est la valeur d’un atome. 
Cette fonction correspond en à : 
(PROG1 (CAR <at>) (SETQ <at> (CDR <at>))) 


ex : (SETQ A *(X YZ) EF XYZ 
(NEXTL A) ER X 
A Y? (Y 2) 
(NEWL <at> <s>) [FSUBRI fpour NEW List} 


<at> (qui n’est pas évalué) doit être un atome 


dont la 


valeur est une liste. NEWL place en tête de cette liste la valeur de 


<s> et retourne en valeur la nouvelle liste formée. 
Cette fonction correspond en MISP à : 
(SETQ <at> (CONS <s> <at>)). 


L'utilisation conjuguée des fonctions NEXTL et NEWL 


construire très naturellement des piles-listes. 


ex : (SETA À ”(X Y Z)) PF XYZ 
(NEWL A "LD EP WXYZ 
A tP (MX Y 2) 
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(NCONC <11> <l2>) LSUBR à 2 arguments] 


concatène physiquement les deux listes <l1> et <l2> (i.e. place dans 
le CDR du dernier élément de <11> un pointeur sur la liste <l2>). 
NCONC retourne la nouvelle liste <11> en valeur. Si <11> et <I2> 
sont les mêmes pointeurs physiques, NCONC permet de construire des 
Listes circulaires par forcage dans le dernier CDR de la Liste d’un 
pointeur sur le ler élément de cette même liste. 


NCONC peut être défini en VLISP de la manière suivante : 


(DE NCONC (11 12) 
CIF (LISTP 11) 
(LET CL 11) 
CIF (ATOM (CDR L)) 
(RPLACD L 12) 
m (SELF (CDR t))))) 
L 


ex : (SETQ X1 * (A B ©) X2 XD) kr 
(NCONC X1 °D E F2) 


X2 
(NCONC X1 X1) 


qua 


ABCDEFAB... 


(FREVERSE <1> <s>) [SUBR a 2 arguments] our Fast REVERSE 


renverse physiquement (et rapidement) la liste <l>. Si le deux ième 

argument <s> est fourni, il est ajouté au moyen d’un NCONC phys ique a 

la fin de la première liste inversée : l'appel correspond donc à : 
(NCONC (FREVERSE <l>) <s>) 

Cette fonction doit être manipulée avec précaution car elle modifie 

physiquement des structures (en particulier les modifications 

peuvent être boulversantes en cas de structures partagées), mais elle 


est évidement ob à PES ed que la fonction traditionnelle 
REVERSE. | 


FREVERSE peut étre défini en MUSA NCISP| de la manière suivante : 


(DE  FREVERSE (l 5) 
(IF (LISTP 1) 
HA (CDR O’ (RPLACD t s)) 
S) 


ex : (SETQ LI *"(ABCDE)) r(ABCODE) 
(SETA L2 (CDR L1)) tr (B C DE) 
(SETQ L3 (LAST L1)) rr (E) 
(FREVERSE L1 ? (X Y) rr (EDCBARX Y) 
11 EP (A X Y) 
L2 Er (B À X Y) 
L3 k Œ DCB A X Y) 
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3.8 LES FONCTIONS SUR LES A-LISTES 


En MiS 8 comme dans tous les [MLISP, les  Á-listes (les Listes 
d’association) sont des tables (au sens de SNOBOL 4) qui possèdent la 
structure suivante : 


((clél . vall) (clé2 . val2) np (cléN . valN)) 


Chaque élément d’une Á-liste est un couple constitué d’une clé (le CAR de 
L'élément de la table) et d’une valeur (le CDR de l'élément). L’accès à 
une valeur est réalisé au moyen de sa clé. 


Pour toutes les fonctions qui vont être décrites, U argument <al> doit 
être une AÂ-liste, et les clés doivent être des atomes littéraux (car les 
fonctions d'accès aux Á-listes utilisent le prédicat EQ pour des raisons 
d'efficacité). 


(ASSA <at> <al>) [SUBR à 2 arguments] 
retourne l'élément de la A-liste <al> dont la clé (le CAR) est égal à 
l’atome littéral <at>, sinon ASSQ retourne NIL. 


ASSQ peut être défini en VLISP de la manière suivante : 


(DE ASSQ (at al) 
(COND ((NULL al) NIL) 
((EQ (CAAR al) at) (CAR al)) 
(T (ASSQ at (CDR al))))) 


ex : (ASSQ *”B *((A) (B 1) (CD E))) kr (B 1) 


(CASSA <at> <al>) [SUBR à 2 arguments] 
est identique à ASSQ mais retourne La valeur seule (le CDR) de 
l’élément dont on précise la clé. 


(CASSQ at al) est donc équivalent à (CDR (ASSQ at al)) 


ATTENTION : on ne peut pas distinguer la valeur NIL associée à un 
élément de Á-liste avec l’absence de cet élément. 


ex : (CASSQ °C *((4) (B 1) (CDE))) EP (DE) 


Si on veut utiliser des clés plus complexes (de n'importe quel type : 
nombre ou Liste) il faut utiliser la fonction suivante pour accéder aux 
éléments d’une telle A-liste : 


(ASSOC <s> <al>) [EXPR] 


cette fonction doit être définie en NLISP 8 de la manière suivante : 


(DE ASSOC (s al) 
(COND 
( (NULL al) NIL) 
( (EQUAL s (CAAR al)) (CAR al)) 
(T (ASSOC s (CDR al))))) 
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Voici 2 fonctions utilisant des A-listes, qui ne sont pas des fonctions 
standards de 8 (du fait de son manque de place chronique) mais qui 
existent dans d’autres systèmes MISP. 


(PAIRLIS <11> <(2> <al>) [EXPR] 


<([1> doit être une liste de clés 

<12> doit être une liste de valeurs 

PAIRLIS retourne une nouvelle A-liste formée à partir de la liste des 
clés <l1> et de la liste des valeurs associées <l2>. Si le troisième 
argument <al> est fourni, il est ajouté à la fin de la A-liste créée. 


Voici la définition de PAIRLIS en 8 : 


(DE PAIRLIS (11 12 al) 
(IF (NULL D 


at 
(CONS (CONS (CAR 11) (CAR 12)) 
(PAIRLIS (CDR 11) (CDR 12) al)))) 


ex : (PAIRLIS ? (YA JESTEM WIELKY) ?CLE MERLE CHANTE) 0) 
rr? CCYA . LE) (JESTEM . MERLE) (WIELKY . CHANTE)) 
(PAIRLIS *(X Y Z) "(A (B)) *((4. X) (B. Y))) 
EH CCX . A) (Y B) Z) (A. X) (Bo. Y) 


(SUBLIS <al> <s>) [EXPR] 


retourne une copie de l’expression <s> dans laquelle toutes les 
occurrences des. clés de la Á-liste <al> ont été remplacées par leurs 
valeurs associées correspondantes. Cette fonction effectue une copie 
entière de l’expression <s> et utilise la fonction ASSQ. 


Voici la définition de la fonction SUBLIS en WISP 8 : 


(DE SUBLIS (al s). 
(LET (s s) 
(IF (ATOM s) 
(LET (x (ASSQ s al)) CIF x (CDR x) s)) 
(CONS (SELF (CAR s?) (SELF (CDR s)))))) 


ex :  (SUBLIS *((A . J (B 2 33) * (A G A C) DB . B))) 
Er (Z (C2 3) Z C) D (2 3) 2 3) 
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3.9 LES FONCTIONS SUR LES F-VAL ET LES F-TYPE 


On peut associer à chaque atome littéral une définition de fonction en 
donnant une valeur aux propriétés naturelles F-TYPE et F-VAL de ces 
atomes. Les fonctions qui vont être décrites contrôlent la validité de 
leurs arguments. On ne peut associer de fonctions qu’à des atomes 
Littéraux qui ne sont pas des constantes littérales (comme NIL, T, LAMBDA, 
FUNCTION, QUOTE, EXPR ...). De plus tous les paramètres formels de ces 
fonctions doivent être des atomes Littéraux également. En cas de mauvaise 
utilisation de ces fonctions une erreur apparait dont le libellé est : 


** erreur mauvaise définition. ou 
** bad definition. 


Si le 2ème argument <ftype> n'est pas fourni (si <ftype>=NIL), cette 
fonction retourne le F-TYPE de La fonction associée à l’atome 
Littéral <at> donné en ler argument. 

Ce F-TYPE peut être l’un des atomes suivants : 


OSUBR si <at> possède une définition de type SUBR sans argument. 
1SUBR si <at> possède une définition de type SUBR à 1 argument. 
2SUBR si <at> possède une définition de type SUBR à 2 arguments. 
SSUBR si <at> possède une définition de type SUBR à 3 arguments. 
NSUBR si <at> possède une définition de type SUBR à N arguments. 
FSUBR si <at> possède une définition de type FSUBR. 

EXPR si <at> possède une définition de type EXPR. 

FEXPR si <at> possède une définition de type FEXPR. 

MACRO si <at> possède une définition de type MACRO. 
ESCAPE. si <at> possède une définition de type. ESCAPE. 

- NIL si <at> ne possède pas de définition de fonction. 


PTIT AHFTI 


Si le 2ème argument <ftype> est fourni, il doit être un des atomes 
énumérés ci-dessus et il devient le nouveau F-TYPE de l’atome 
Littéral <at>. 

Pour détruire un F-TYPE il faut utiliser la forme : (FTYPE <at> 0) 
et non :  (FTYPE <at>) 

qui ne permetrait qu’une consultation du F-TYPE. 


ex : (FTYPE *FTYPE) Er  2SUBR 
(FTYPE *COND) rr  FSUBR 
(LIST (FTYPE *PUT> (ESCAPE PUT (FTYPE *PUT))> (FTYPE *PUT)) 
rr (3SUBR ESCAPE 3SUBR) 
(FTYPE ? QUOT) kP NIL 


(FUAL <at> <s>) [SUBR a 2 arguments] our Function VALue 


permet de retourner (après modification si <s> est fourni) la F-VAL 
associée à l’atome littéral <at> ou bien NIL s’il n’y a pas de 
fonction associée. La F-VAL d’une fonction de type SUBR est son 
adresse de Lancement, tla F-YAL d’une fonction de type 
EXPR/FEXPR/MACRO est une liste de la forme (<lvar> <sl> ...  <sN>), 
et La F-VAL d’une fonction de type ESCAPE est le nom de cette 
fonction ESCAPE. 


ATTENTION : pour détruire la F-VAL d’un atome Littéral il ne faut 


pas employer la forme (FVAL at) qui ne réalise qu’une consultation de 
cette F-VAL mais la forme (FVAL at 0) qui force l'adresse 0 dans la 
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F-VAL. 

ex : (DE FOO (N) NN) E” FOO 
(FTYPE *F00) EP EXPR 
(FVAL *F00) E? (N) x NN) 
(EVAL ’CAR) LP 12622 


(cette adresse est dépendante du système utilisé) 
Ces 2 dernières fonctions permettent de rendre synonymes statiguement des 
noms de fonctions par exemple au moyen de cette EXPR : 


CSYNONYM <at1> <at2>) [EXPR] 


permet de donner à l’atome littéral <at1> le type et la valeur de la 
fonction associée àb l'atome littéral <at2>, 


SYNONYM doit être défini en de la manière suivante : 
= (DE SYNONYM (atl at2) 


(FTYPE atli (FTYPE at2)) 
(FVAL atl (FVAL at2)) 


-at1l) 
ex : 
(SYNONYM *KONS *CONS) F7 KONS 


(KONS A ”B) rr (A.B) 


(GETFN <at>) [SUBR à 1 arguments] pour GET FuNction} 


permet de retourner la définition de La fonction de type 
EXPR/FEXPR/MACRO associée à l’atome littéral <at> sous la forme de sa 


définition (i.e. sous la forme de l’appel d’une des fonctions 
DE /DF /DM). | . | | 


GETFN peut être défini en de la manière suivante : 


(DE GETFN (at) 
(SELECTA (FTYPE at) 
© (EXPR (MCONS ”DE at (FVAL at))) 
(FEXPR (MCONS *DF at (FVAL at))) 
(MACRO (MCONS *DM at (FVAL at))) 


CT 0))) 
ex : (DE BAR (N) (+ NN) x FOO 
(FTYPE *BAR) KE? EXPR 
(FVAL *BAR) FF (MN +NN) 
(GETFN *BAR) EP? (DE BAR (N) (+ N WN) 
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3.10 LES FONCTIONS DE DEFINITION DE FONCTIONS 


Ces fonctions vont permettre de définir de nouvelles fonctions. Elles 
testent la validité de leurs arguments : 

- les noms des fonctions doivent être des atomes littéraux 

- toutes les variables de la liste des paramètres formels doivent 
également être des atomes littéraux. 

Si ce n’est pas le cas, une erreur apparait dont le Libellé est : 


xx erreur mauvaise définition. ou 
** bad definition 


Il existe 2 types de définition de fonction : Les définitions statiques 
et les définitions dynamiques (voir Le chapitre précédent sur le 
fonctionnement de lL’ interprète). 


3.10.1 Définitions des fonctions statiques 


(DE <at> <lyvar> <s1> ... <sN>) [FSUBR] 


permet de définir statiquement de nouvelles EXPR. <at> est le nom de 
L° atome Littéral auquel sera rattaché une fonction équivalente å: 


CINTERNAL EXPR (<lvar> <s1> >.. <sN>)) 


DE (prononcez "dé" comme en latin) retourne le nom de La fonction 
<at> en valeur. 


DE peut être défini en MIS de la manière suivante : 


(DF DE (D 
(FYAL (CAR 1) (CDR 13) 
(FTYPE (CAR Ll) ENERO 
(CAR L)) 


ex : (DE FOO (C1) CIF (NULL (CDR t)) L (FOOD (CDR 193) E” FOO 
(FYAL ?FOD) EP (C1) CIF (NULL (CDR L)) L (FOD (CDR L)))) 
(FTYPE *FOD) kr EXPR 
(FOO °A BO) kr (0) 


(DF <at> <lvar> <s1> ... <sN>) [FSUBRI 


permet de définir statiquement de nouvelles FEXPR. <at> est le nom 
de l’atome littéral augue sera rattaché une fonction équivalente à : 


(INTERNAL FEXPR (<lvar> <s1> ... <sN>)) 
DF retourne en valeur le nom <at> de la fonction définie. 


ex : (DF INCR (L) (SET (CAR L) (1+ (CAAR L)))) kF? INCR 
(TYPEFN ?INCR) KF  FEXPR 
(SETA nb 7) EP 7 
(INCR nb) rr 8 
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(DM <at> <lvar> <s1> ... <sN>) [FSUBR] 


permet de définir statiquement de nouvelles MACRO. <at> est Le nom 
de l’atome littéral auquel sera rattachée une fonction équivalente 
à 


> 
» 


CINTERNAL MACRO (<lvar> <s1> ... <sN>)) 
DM retourne en valeur Le nom <at> de La fonction définie. 


ex : (DM O (LIST *SETQ (CADR t) (LIST *1- (CADR 1)))) 
NCR 


EF 
(SETQ N 10) rr” 10 
(DECR N) rr 9 


3.10.2 Définitions des fonctions dynamiques 


(WHERE <l> <s1> ... <sN>) [FSUBR] 


permet de définir des fonctions dynamiquement (d’une manière analogue 
a la fonction LET pour les variables). 


<l> est une liste de la forme : 
_C<at> <fval>) ou bien (<at> <ftype> <fval>) 
<s1> ... <sN> est un corps de fonction. 


WHERE va Lier, le temps de l’évaluation de <s1> ... <sN>, une 
nouvelle fonction à l’atome <at>. Cette fonction est de type <ftype> 
si celui-ci est précisé (ou bien EXPR en cas d’absence de <ftype>) et 
la. valeur de cette fonction est <fval> (qui est évaluée). Au sortir 
du WHERE, l’atome littéral <at> reprendra son ancienne définition 
(s’il en avait une). 

Il existe un deuxième type de fonctions dynamiques, les fonctions 
dynamiques de type ESCAPE. Elles sont décrites au paragraphe 3.2 sur 
les fonctions d*applications. 


ex : (WHERE (CAR *(00 (CDR x))) (CAR *(A B 0))) E? (BC) 
(CAR ? (A B C)) Er À 
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3.10.3 Appel de type LET 


(LET <l> <81> ... <sN>) [MACRO] 


permet d'appeler une fonction anonyme de type EXPR (i.e. une 
lambda-expression). 
<i> est une liste de la torme : 


0 dans le cas où il n’y a pas de variable 
_ (<var> <val>) dans le cas où il n’y a qu’une variable 
((<var1> <val1>) ... (<varN> <valN>)) dans le cas de variables 
multiples. 


<s1> ... <sil> est un corps de fonction. 


La. fonction LET va. Lier dynamiquement ..et en parallèle. toutes. les 
variables <vari> aux valeurs <vali> puis lancer l’exécution du corps 
de la fonction <s1> ... <sN>. Au sortir du corps de cette fonction 
les variables seront déliées et retrouveront leurs anciennes valeurs. 
LET permet de définir des variables locales très facilement. 


LET est une forme abrégée d’appel de fonctions anonymes de type EXPR. 


Ainsi la forme 
(LET (<var> <val>) <sl> ... <sN>) 
correspond a l*appel 
Arima dos <sl> ... <sN>) <val>) 
ou bien à l’ap 
INTERNAL EXPR ((<var>) <sl> ... <sN>)) is) 


et la forme 
(LET ((<varl> <vall>) ... (<varN> <vaiN>)) <sl> ... <sN>) 
correspond a l'appel 
rieur (<varl> ... <varN>) <sl> ... <sN>) <vall> ... <valN>) 
ou bien à l’a 
E INTERNAL EXPR 


((<varl> ... <varN>) <sl> ... <sN>)) <vall> ... <valN>) 


LET öst en 8 . 2 La MACRO suivante : 


(DM LET (ls) 
(RPLACB ls 
- CCOND 
( (NULL (CADR ls)) 
(CONS (CONS LAMBDA (CONS (0) (CDDR Ls))))) 
(CATOM (CAADR ts)) 
(CONS (CONS LAMBDA (CONS (LIST (CAADR Ls)) (CDDR Ls))) 
(CDADR !ls))) 
(T (CONS (CONS LAMBDA (CONS (MAPCAR *CAR (CADR Ls)) (CDDR 1s))) 
(MAPCAR ?CADR (CADR ls))))))) 
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-3.11 LES FONCTIONS SUR LES P-LIST DES ATOMES LITTERAUX 


En MSP, 8 comme dans tous les NLISP), les P-LIST (listes de propriétés) sont 
des Listes (constituées d’ indicateurs et de valeurs) qui ont la structure 
suivante : 
Cindic1 vall indice vale ... indicN val) 

A chaque indicateur indici est associée une valeur vali qui est l'élément 
suivant de la P-LIST. Les recherches sur les P-LIST s’effectuent donc 
deux éléments par deux éléments. 
Chaque atome littéral possède une P-LIST qui lui est propre. 
Il existe, en 8, 5 fonctions de manipulation de ces P-LIST. 
Les arguments de ces fonctions sont : 
<pl> - un atome Littéral dont on veut utiliser La P-LIST . 

Si <pl> est un nombre, une liste ou bien l’atome NIL, une erreur 

fatale apparait dont le Libellé est : 


** erreur mauvaise P-LIST : <pi> ou 
** Bad P-1ist : <p1> 


dans lequel le nom de la P-LIST incriminée <p13 est imprimé. 


<ind> un indicateur. Celui-ci doit être un atome littéral, La recherche 
o des indicateurs utilisant le prédicat EQ. 


<pval> peut être n” importe quelle expression. 


(PLIST <pl>) [SUBR à 1 argument] 
retourne la P-LIST associée à L”atome littéral <pl>. Si l’atome 
Littéral <pl> ne possède pas de P-LIST, PLIST retourne NIL. 
Du fait de L’ implémentation particulière des P-LIST en MISPA 8, la 
fonction PLIST est actuellement équivalente à La fonction CUR. 
Toutefois il est recommandé d'utiliser la fonction PLIST pour des 
raisons de transportabilité des programmes ẸWLISP]. 


PLIST peut être défini en 8 : 
(DE PLIST (at) (CDR at)) 


mais ne peut pas en général être défini simplement dans les 
autres systèmes LISP. 


(SETPLIST <pl> <l>) [SUBR a 2 arguments] 
force la P-LIST de l’atome <pl> avec la liste <l>. Cette fonction 
permet donc d’initialiser une P-LIST. SETPLIST retourne la nouvelle 
P-LIST (i.e. la valeur de <l>) en valeur. 


+ du fait de la représentation des P-LIST en 8, 
SETPLIST peut être défini : 
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(DE SETPLIST (pl D 
(RPLACD pt D) 


ex : (SETPLIST ? rose * (nom commun genre féminin)) 
EP (nom commun genre féminin) 
(PLIST rose) EP” (nom commun genre féminin) 


(GET <pi> <ind>) [SUBR à 2 arguments] 


retourne la valeur associée à L’indicateur <ind> dans la P-LIST <pl>. 
Si l’indicateur n’existe pas, GET retourne NIL. 

ATTENTION : on ne peut pas discerner la valeur égale à NIL d’un 
indicateur avec l’absence de cet indicateur. 


GET peut être défini en VLISP] de la manière suivante : 


(DE GET (pl ind) 
(LET (pl (PLIST pl)? 
(COND C€NULL pl) NIL) 
( (EQ (CAR pl) ind) (CADR pl)) 
(T (SELF (CDDR pl)))))) 


ex : (PLIST ' rose) E? (nom commum genre féminin) 
(GET ‘rose ” genre) FF féminin 
(GET *rose famille) E” NIL 


La recherche de plusieurs indicateurs peut être réalisé au moyen de 
la fonction suivante : 


(DE GETL (pi Ù o 
; pl = une P-LIST 
: = une liste d’indicateurs 
| LET (pl (PLIST pb) 
(COND 

((NULL pl) pl) 
((MEMQ (CAR! pD D pl) 
(T (SELF (CDDR pl)))))) 


Cette fonction retourne la partie de la P-LIST pl à partir d'un des 
indicateurs contenus dans la liste L. 
CADDPROP_<pl> <pval> <ind>) [SUBR a 3 arguments] 


rajoute en tête de la P-LIST <pl> l’indicateur <ind> et sa valeur 
associée <pval>. ADDPROP retourne <pl> en valeur. | 


ADDPROP peut être défini en de la manière suivante : 


(DE ADDPROP (pl pval ind) 
(SETPLIST pl EPS ind (CONS pval (PLIST pl)))) 


pu 
ex : (PLIST ?’PLT) EP (11 A 12 B) 
(ADDPROP *PLT *C *11> EP ”PLT 
(PLIST *PLT) rr (11€ 11 A 12 B) 
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(PUT <pl> <pval> <ind>) [SUBR á 3 arguments] 
si l'indicateur <ind> existe déjà sur La P-LIST <pl>, sa valeur 
associée prend la nouvelle valeur <pval>, sinon U’ indicateur <ind> et 


sa valeur associée <pval> sont ajoutés en tête de <pl> (d’une manière 
identique à La fonction ADDPROP). PUT retourne <pl> en valeur. 


PUT peut être défini en VLISP de la manière suivante : 


(DE PUT (pl pval ind) 
(LET (p (PLIST pl)) 
= (COND 
((NULL p) CADDPROP pl pval ind)) 
((EQ (CAR p) ind) (RPLACA (CDR p) pvabD) 
| (T (SELF (CDDR p))))) 
pl 


ex : (PLIST ?’PLT) 
(PUT *PLT °C ”11) 
(PLIST *PLD 
(PUT ?’PLT O *19) 
(PLIST ?’PLT) 


(11 A 12 B) 
PLT 


(11 C 12 B) 
PLT 
(19 0 11 C 12 B) 


5544 


CREMPROP <pl> <ind>) LSUER à 2 arguments] 


enlève de la P- LIST <p> l’ indicateur <ind> s’il existe ainsi que sa 
valeur associée. REMPROP retourne <pl> en valeur. 

L’utilisation conjuguée des fonctions REMPROP et ADDPROP permet 
d?’ utiliser Les P-LIST comme des piles de propriété-valeurs. 


REMPROP EAU être défini en NUSP] de la manière suivante : 


(DE REMPROP (pl ind) 
(LET (Cpll CL (pt2 (PLIST pl))) 
(COND 


(NULL pt2) 0) 
( (EQ (CAR pt2) ind) (RPLACD pt1 (CDDR p12))) 
(T (SELF pL2 (CDDR pt2)))))) 


ex : (PLIST *PLT) kP (I1 A 12 B) 
(REMPROP *PLT *12) rr PLT 
(PLIST *PLT) tr? (I1 A) 
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3.12 LES FONCTIONS SUR LES P-NAME DES ATOMES 


Rappelons que : 

- Le P-NAME d’un atome littéral est son nom externe 

- Le P-NAME d’un nombre est sa représentation externe dans la base de 
conversion de sortie courante. 


Toutes ces fonctions peuvent être décrites au moyen des 2 fonctions de 
base, IMPLODE et EXPLODE qui permettent de passer de la représentation 
interne d’un P-NAME à sa représentation externe et vice-versa. 


(EXPLODE <s>) [SUBR à 1 argument] 


retourne la liste de tous les caractères de la représentation externe 
de L'expression <s>, qui peut être de type quelconque. EXPLODE 
retourne la liste de caractères qui serait imprimée si on demandait 
L’ impression de <s> au moyen de la fonction PRIN (du reste il n’y a 
pas de fonction EXPLODE à proprement parler dans l’ interprète mais un 
E OSEDE de direction du flux de sortie produit par la fonction 
RIN). i -E 


ex : (EXPLODE ’-237) EP (-23 7) 
(EXPLODE ? (CAR ? (A B))) 
rr (/(CCAR 7 /CQUOTE 7 /CA 7 /B 7} 7) 7) /)) 
dans cet exemple les caractères spéciaux parenthèse ouvrante, 
parenthèse fermante et espace sont quotés au moyen du caractère / 


= 


(IMPLODE <i>) LSUBR à 1 argument] 


suppose. que <l> est une liste. de. caractères. (i.e. . d’atomes 
mono-caractères). IMPLODE retourne l’objet qui possède comme 
représentation externe la liste de caractères <l>. IMPLODE est 
U inverse de EXPLODE et permet de fabriquer de nouveaux objets 
au moyen de leur représentation externe DE LA MEME MANIERE que si ces 
caractères étaient lus par la fonction READ (il n’y a pas de fonction 
spéciale IMPLODE dans !”* interprete mais simplement un changement 
d’origine du flux d’entrée de la fonction READ). 


ex : (IMPLODE ? (- 1 2 9)) FP -129 
(IMPLODE (EXPLODE ? (A B))) kr (A B) 


(PLENGTH <at>) [SUBR à 1 argument] {pour Pname LENGTH} 


retourne en valeur le nombre de caractères du P-NAME de l’atome 
littéral <at>. Si l’argument <at> n’est pas un atome littéral, 
PLENGTH retourne 0. 


PLENGTH peut être défini en [VLISP] de la manière suivante : 
(DE PLENGTH (at) 


(IF (LITATOM at) 
(LENGTH (EXPLODE at)) 


0)) 
ex : (PLENGTH *FOOBAR> rr 6 
(PLENGTH) EF? 3 taille de l'atome NIL 
(PLENGTH 120) rr 0 
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(CHRPOS <c> <at>) [SUBR a 2 arguments] 


retourne en valeur la position du caractère <c> dans le P-NAME de 
l’atome littéral <at>. Si le caractère <c> n'existe pas dans le 


P-NAME de l'atome CHRPOS retourne NIL. La position (le rang) 


premier caractère est 1 (et non 0). 
CHRPOS peut être défini en de la manière suivante : 


(DE CHRPOS tc at) 
(LET (Ct (EXPLODE at) (n 1)) 
(COND 
((NULL O NIL) 
( (EQ (CAR 1) c) n) 
(T (SELF (CDR L) (1+ n)))))) 


ex : (CHRPOS *Y "OTYoty") | EF 3 


(CHRPOS *N "OTY") kr NIL 
(CHRPOS °D "0123456789ABCDEF") Er 14 


CCHRNTH <n> <at>) [SUBR à 2 arguments] 


du 


retourne le <n>ième caractère du P-NAME de l'atome littéral <at> et 


s’il n’existe pas retourne la valeur NIL 
CHRNTH peut être défini en de la manière suivante : 
(DE CHRNTH (n at) 
(IF (LITATOM at) 
EAU n (EXPLODE at)) 


ex : (CHRNTH 1 >FOD) r F 
(CHRNTH 11 "0123456789ABCDEF") XP A 


(SORT_<at1> <at2>) [SUBR à 2 arguments] 


retourne T si le P-NAME de l'atome littéral <al> est inférieur 


ou 


égal (lexicographiquement) au P-NAME de l'atome littéral <a2>,sinon 


retourne NIL. Cette fonction est utilisée pour réaliser des 
alphabétiques. 


SORT peut être défini en MLISP de la manière suivante : 


(DE SORT (atl at2) 
(LET ss (EXPLODE at1)) (12 (EXPLODE at2))) 


(CON 
NULL tO T) 
((<= (CASCII (CAR 11) (CASCII (CAR 12))) 
(SELF (CDR t1) (CDR 12))) 
(T O)))) 
ex : (SORT *A *A) K T 
` (SORT ’B *A) kP NIL 
(SORT *A ”B) KP 


T 
(SORT *ZZZ *2ZZZZ) rr T 
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+: Comment réaliser Le tri d’une Liste par échange physique : 


(DE SORTL (L ;; s) 
(SETQ s CAPPEND 1) 
(MAP (LAMBDA (s11) 
(IF (CDR 1) | 
(MAP (LAMBDA (s12) 
(IF (SORT (CAR s11) (CAR s12)) 


O 
(RPLACA sl2 
(PROG1 (CAR s11) 
(RPLACA sl1 (CAR s12)))))) 
(CDR s11)))) 
S) 
S) 


s Voici une autre manière de trier une liste d*atomes 
s au moyen d’un tri-fusion récursif 


(DE TRI-FUSION Cl) 
s tri la liste l 
sin (NULL (CDR DL) 


(FUSION (TRI -FUSION (MOITIE1 L)) (TRI-FUSION (MOITIE2 1))))) 


(DE FUSION (L1 12) 
s fusionne les 2 listes triées ll et 12 
(COND 
C (NULL 11) 12) 
((NULL 12) 11) | 
((SORT (CAR 11) (CAR L2)) 
(CONS (CAR 11) (FUSION (CDR 11) 12))) 
CT (CONS (CAR 12) (FUSION 11 (CDR 12)))))) 


(DE MOITIEL (0) 
- y retourne la lére moitié de 
(LET (Ct OD (n (// (LENGTH 0 2)» 
(IF (<= n 0) 


O 
(CONS (CAR O (SELF (CDR O’ (1- n)))))) 


(DE MOITIEZ (1) 
s retourne la 2ème no LE de L 
(NTH (1+ (// (LENGTH 1) 2)) D) 


: Cette exemple n’est pas optimum quant au nombre de CONS effectués. 
s L'utilisation des fonctions de modification physique permet la 
: suppression de tous les CONS des fonctions FUSION et MOITIE1 


(GENSYM <n>) [SUBR à 1 argument] our __GENerate SYMbol 
retourne à chaque appel un nouvel atome littéral de type Gxxx dans 
lequel xxx est un nombre incrémenté de 1 à chaque appel Con appelle 
ce nombre le compteur de GENSYM); xxx vaut 100 au départ de 


L’ interprète... Si l argument <n> est fourni il devient le nouveau 
compteur de GENSYM. 


si GENSYM-COUNT est le nom de la variable globale qui 
contient le compteur de GENSYM, il doit être initialisé : 


(SETQ GENSYM-COUNT 100) 
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et GENSYM peut être défini en MSP de la manière suivante : 


(DE GENSYM (n) 
(IF n (SETQ GENSYM-COUNT n)) 
(SETA GENSYM-COUNT (1+ GENSYM-COUNT)) 
(IMPLODE (CONS °G (EXPLODE GENSYM-COUNT3))) 


ex : (GENSYM) | tr” 6101 
(GENSYM) iP 6102 
- (GENSYM) o o fr 6103 . 


Une utilisation intéressante de la fonction GENSYM est la possibilité 
de réaliser une protection contre les collisions homonymiques de 
certaines variables critiques contenues dans différents fichiers. 
Autrement dit, il faut pouvoir s'assurer que certaines variables d’un 
fichier seront uniques en ce sens qu'aucun autre atome ne pourra 
avoir le même P-NAME dans d’autres fichiers. Pour ce faire on peut 
définir un macro-caractère (ici le ~) qui sera placé devant toutes 
les occurrences de ces variables critiques. Pour réaliser cette 
protection de variables, durant la lecture d’un fichier, il faut 
organiser de la manière suivante : 


> en tête du fichier faire 
(SETQ prefix (EXPLODE (GENS YM) ) ) 
(DMC "w" () (IMPLODE (APPEND prefix (EXPLODE (READ) ) ))) 
(DE FOO (ml ws ) 
les variables l et s sont maintenant protégées 


y car elles sont traduites : G1011 Gl0ls ... 


“s ét en fin de fichier provoquer 1” irrémédiable 


- (GENS YM) 
Enfin voici 2 fonctions de manipulation des codes internes des caractères. 


(ASCII <n>) [SUBR à 1 argument] 
retourne Le caractère de code ASCII <n> (modulo 256). 
ex : (ASCII 67) rr € 
(1+ (ASCII 49)) kF 2 
(CASCI I <c>) [SUBR à 1 argument] our Code ASCII 


retourne le code ASCII du caractère <c>. Un caractère étant un atome 
dont le P-LEN est égal à 1. 


ex : (CASCII °C) rr 67 
(CASCII 1) rr 49 
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3.13 L'ARITHMETIQUE MIXTE 


Certains systèmes (TRS80(TRSDOS) et TRS80(CP/M)) permettent d'utiliser des 
nombres flottants et tous les systèmes permettent d'utiliser des nombres 
entiers. 

Le système 8 possède un ensemble de fonctions pouvant manipuler ces 
nombres. Les arguments de ces fonctions peuvent être des nombres de 
n’ importe quel type : entiers ou flottants. Si l’un des arguments est 
flottant, le résultat de ces fonctions est un nombre flottant ; si tous 
les arguments sont de type entier, le résultat de ces fonctions est un 
nombre entier. It y a donc conversion automatique des arguments avec 
priorité aux nombres flottants. 


Ces fonctions ne testent pas Le type des arguments. Toutefois tout 
argument absent (égal à NIL) est remplacé par la valeur 0. 


Un débordement dans un calcul provoque l’erreur : 


“* erreur débordement numérique. ou 
** numeric overflow. 
Toutefois le test de débordement n’est validée que si la valeur de l’atome 
OVERFLOW est différente de NIL (ce qui est l'option par défaut). Si cet 
atome possède une valeur égale à NIL, aucun message n’apparait en cas de 
débordement et Le calcul se poursuit avec des résultats bien évidemment 
faux. 
Donc pour arrêter le programme en cas de débordement, il faut évaluer : 
(SETQ OVERFLON T) 
sinon pour ne pas provoquer d'erreur, il faut évaluer : 
(SETQ OVERFLOW) 


Il est également possible de changer dynamiquement La valeur à L’atome 
OVERFLON, par exemple : 


(LET COVERFLOW) 


<sl> s permet d’évaluer les différentes 
eeri s formes <sl> ... <sN> sans craindre 
<sN>) . P erreur xk débordement d’entier. 


ATTENTION : d’une manière générale, les fonctions qui vont être décrites 
sont à préférer aux fonctions de la section suivante car elles existent 
dans tous les systèmes (que le système possède ou non des nombres 
flottants) et sont plus générales. 


(1+ <n>) [SUBR à 1 argument] 


retourne la valeur : <n +1. 


7 
1 
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(1- <n>) [SUBR b 1 argument] 
retourne la valeur : <m> - 1 
ex: (1- 7) rr 6 

(1-53 rP -1 
(+ <n1> <n2>) [SUBR à 2 arguments] 


retourne la valeur de la somme : <n1> + <ne> 


ex: (+5 6) rr 11 
(+ 8) rr 8 
(+) tr 0 


Certains MLISP possèdent la fonction PLUS à N arguments qui réalise 


une addition multiple. Cette fonction peut être définie en [MVLISP 8 
avec La MACRO suivante : 


(DM PLUS (1) 
(RPLACB L 
= (LIST *+ (CADR L) 
CIF (NULL (CDDDR L)) 
(CADDR L) 
(CONS ”PLUS (CDDR 1)))))) 


ex : l’appel (PLUS z 12 y) est traduit (+ z (+ 12 y)) 


(- <n1> <n2>) [SUBR à 2 arguments] 


retourne la valeur de la différence : <n1> - <n2> 


ex: (- 6 2) xP #4 
| (- 12) o 6 12 
(23 rr 0 


(> <n1> <n2>) [SUBR à 2 arguments] 
retourne la valeur du produit : <n1> x <n2> 


ex : (x 10 4) EH 40 
(x 100) rr 0 


Certains VLISP possèdent la fonction TIMES à N arguments qui réalise 
une multiplication multiple. Cette fonction peut être définie en 
VLISP] 8 avec la MACRO suivante : 


(DM TIMES (L) | | . 
(BPLACB 1 
(LIST °x (CADR 1) 
(IF (NULL (CDDDR D) 
(CADDR 1) 
(CONS TIMES (CDDR 1)))))) 


ex : l'appel (TIMES N X Y Z) est traduit (k W k X (x Y 2))) 
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(/ <n1> <n2>) [SUBR a 2 arguments] 


retourne la valeur du quotient de : <n1> / <n2>. Si l'argument <n2> 


est égal à 0, une erreur se produit dont le Libellé est : 


** erreur division par 0. ou 
*=* 0 divide. 


Dans certaines versions de VLISP 8, la caractère / est un 


spécial qui permet de quoter des caractères en entrée (voir les 


fonctions d’entrée). Dans le cas il faut soit quoter ce 


lui-même au moyen d’un double slash //, soit utiliser 


pseudo-chaîne "/”, 


ex : (/ 20 5) rr 4 
(7 10) IP? xx erreur division par 0 
et si / est un caractère spécial 
(7/7 100 5) FF 20 ou bien 


("/" 100 5) rr 20 


EN <n1> <n2>) [SUBR a 2 arguments] 


retourne la valeur du reste de la division de <n1> par <n2>. 


claviers des systèmes TRS80, le caractère \ est obtenue par la frappe 


du caractère flèche en bas. 


ex : (\ 11 3) FF 2 
A 12 4) rr 0 


IL est souvent utile d’avoir des fonctions incrémentation 
décrémentat ion. Celles-ci sont aisément réalisées sous forme de MACRO 


dont voici les textes : 


(DM INCR (CL) 
(RPLACB 1 
(LIST *SETQ (CADR L) 
CIF (NULL (CADDR L)) 
(LIST °1+ (CADR D) 
(LIST °+ (CADR O (CADDR L)))))) 


(DM DECR (1) 
(RPLACB 1 | 
(LIST *SETQ (CADR L) 
CIF (NULL (CADDR 12) 
(LIST *1- (CADRA ù) 
(LIST ”- (CADR 1) (CADDR L)))))) 


exemple d*appel : 


(INCR x 2) est traduit (SETQ x (+ x 2)) 
(DECR cpt) est traduit (SETQ cpt (1- cpt)) 
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3.14 L'ARITHMETIQUE ENTIERE 


Les fonctions qui vont être décrites utilisent des opérandes <n> supposés 
de type entier. Ces fonctions n’effectuent aucun contrôle de validité de 
type. Si les arguments ne sont pas des nombres entiers, ces fonctions 
Livrent en général de bien étranges résultats. 


L’utilisation de ces fonctions n’est pas recommandée pour des travaux 
ordinaires. En effet elles ne sont utilisées que par des programmes 
systèmes (comme le compilateur) pour des raisons d'efficacité. 


Tout comme les fonctions du chapitre précédent, un débordement dans les 
calculs provoque l'erreur : 


** erreur débordement numérique. ou 
** numeric overflow. 


Et comme les fonctions précédentes, l’atome OVERFLON contrôle l’ impression 
d’un message et l'arrêt de l’évaluation en cas de débordement. 


(ABS <n>) [SUBR a 1 argument] 
retourne la valeur absolue de l'argument <n>. 
ex : (ABS 10) rr 10 


(ABS -10) rr 10 
(ABS O) X 0 


(MINUS <n>) [SUBR à 1 argument] 
retourne la valeur : - <n> 
ex : (MINUS -10) xP” 10 
(MINUS 25) rr -25 
=- (MINUS 0) rr 0 


(ADD1 <n>) [SUBR à 1 argument] 


retourne la valeur : <n> +1. 
ex : (ADD1 6) rr 7 
(ADD1 -4) tr -3 


(SUB1 <n>) [SUBR à 1 argument] 


retourne la valeur : <n> - 1 


ex : (SUB1 7) Ir 6 
(SUB1 -9) rr -10 
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(ADD <n1> <n2>) [SUBR à 2 arguments] 


retourne la valeur de la somme : <n1> + <n2> 


ex : (ADD 5 6) Eir” ll 
(ADD -5 -6) rP -11 
(ADD 8) rr 6 


(SUB <n1> <n2>) [SUBR a 2 arguments] 


retourne la valeur de la différence ¿ <n1> - <n2> 


ex : (SUB 6 2) FF 4 
(SUB 12 -7) kr 19 


(SUB 12). rr 12 


(MUL <n1> <n2>) [SUBR à 2 arguments] 
retourne la valeur du produit : <n1> x <ne> 


ex : (MUL 10 4) rr 40 
(MUL 2 -3) kr -6 
(MUL -100 -100) Er” 10000 


(DIV <n1> <n2>) [SUBR à 2 arguments] 


retourne la valeur du quotient de : <n1> / <ne>. 
DIV effectue une division entière sur des nombres entiers. Si 
L'argument <n2> est égal à 0, une erreur se produit dont le Libellé 


est : 
** erreur division par 0. ou 
x O divide. 
ex : (DIV 23 5) P 4 
(DIV 40 -4) rr” -10 
(DIV 10) IP *%xx erreur division par 0 


(REM <n1> <n2>) [SUBR a 2 arguments] 


retourne la valeur du reste de la division entière de <n1> par <n2>. 


ex : (REM 11 3) rr 2 
(REM 14 22) K 14 
(REM 12 0) XP xx erreur division par 0 
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3.15 LES TESTS DE L'ARITHMETIQUE MIXTE 


Ces fonctions possèdent toutes 2 arguments <n1> et <n2> qui peuvent être 
des nombres de n’importe quel type (entier ou flottant). Si l’un des 
arguments est flottant, ces fonctions réalisent des comparaisons 
flottantes ; si tous les arguments sont de type entier, les fonctions 
réalisent des comparaisons entières. IL y a donc conversion automatique 
des arguments avec priorité aux nombres flottants. 

Si un argument n’est pas fourni à l'appel (si l'argument = NIL) il est 
remplacé par la valeur 0. 


ATTENTION : d’une manière générale, les fonctions qui vont être décrites 
sont à préférer aux fonctions de la section suivante car elles existent 
dans tous les systèmes (que Le système possède ou non des nombres 
flottants) et sont plus générales. 


Toutes ces fonctions retournent le ler argument si le test est vérifié et 
NIL dans le cas contraire. 


(= <n1> <n2>) [SUBR à 2 arguments] ou bien 


si <n1> = <n2> alors = retourne <n1>, sinon = retourne NIL. La 
fonction ZEROP n’a pas été conservée dans [VLISP 8 car elle est 
équivalente à la forme (= <n>). 


(= 10 10) rr 10 
(= - KP NIL 
(= x) est équivalent à l’ancienne forme (ZEROP x) 


ex 


(<> <n1> <n2>) [SUBR à 2 argumentsl ou bien 


si <n1> « <n2> alors <> retourne <n1>, sinon <> retourne NIL. 


ex : (<> 11 10) rr 11 
(<> -3 -3) EP NIL 


(>= <n1> <n2>) [SUBR à 2 arguments] 


si <n1> >= <n2> alors >= retourne <n1> sinon >= retourne NIL. 


ex : (>= 3 7) € NIL 
(>= 7 7) K 7 


(> <n1> <n2>) [SUBR à 2 arguments] 


si <n1> > <n2> alors > retourne <n1> sinon > retourne NIL. 


ex : (> 5 5) kP NIL 
(> 7 4) rr 7 
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(<= <n1> <n2>) [SUBR à 2 arguments] 


si <n1> <= <n2> alors <= retourne <n1> sinon <= retourne NIL. 


ex 2 (<= 5 5) rP 5 
(<= 4 6) EF 4 
(<= 8) EP NIL 


(< <n1> <n2>) [SUBR a 2 arguments] 


si <n1> < <n2> alors < retourne <n1> sinon < retourne NIL. La 
fonction MINUSP n’a pas été conservée dans MAISP 8 car elle est 
équivalente à la forme (< <n>). 


ex : (< 5 5) FP NIL 
(< 4 5) rr 4 
(< 0) E? NIL 


3.16 LES TESTS DE L'ARITHMETIQUE ENTIERE 


Ces fonctions possèdent toutes 2 arguments <n1> et <n2> qui doivent être 
des nombres de type entiers. Elles n’effectuent aucun test de validité de 
type et ne provoquent donc jamais d’erreur. Toutefois si les arguments de 
ces fonctions ne sont pas des nombres entiers, leurs résultats ne sont pas 
significatifs. | | 

Si un argument n "est pas fourni à l'appel (si L'argument = NIL) il est 
remplacé par la valeur entière 0. | | 


Toutes ces fonctions retournent le ler argument si le test est vérifié et 
NIL dans le cas contraire. 


L'utilisation de ces fonctions n’est pas recommandée pour des travaux 


ordinaires. En effet elles ne sont utilisées que par des programmes 
systèmes (comme le compilateur) pour des raisons d’efficience. 


CEQN <n1> <n2>) [SUBR a 2 arguments] our EQ Number 
si <n1> = <n2> alors EQN retourne <n1>, sinon EQN retourne NIL. 


ex : (EQN 10 10) rr” 10 
(EQN -3) yP NIL 


(NEQN_<n1> <n2>) [SUBR à 2 arguments] our NEQ Number 
si <n1> = <n2> alors NEQN retourne <n1>, sinon NEQN retourne NIL. 


ex : (NEQN 11 10) HF 11 
(NEQN -3 -3) FP NIL 
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H 
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(GE <n1> <n2>) [SUBR à 2 arguments] 
si <n1> >= <n2> alors GE retourne <n1> sinon GE retourne NIL. 


ex : (GE 3 7) kP NIL 
(GE 7 7) rr 7 


(GT <ni> <n2>) [SUBR à 2 arguments] 
si <n1> > <n2> alors GT retourne <n1> sinon GT retourne NIL. 


ex : (GT 5 5) EP NIL 
(GT 7 4) EE 7 


(LE <n1> <n2>) [SUBR à 2 arguments] 
si <n1> <= <n2> alors LE retourne <n1> sinon LE retourne NIL. 


ex : (LE o 5) EP 5 


(LE 4 6) r 4 
(LE 8) E? NIL 


(LT <n1> <n2>) [SUBR a 2 arguments] 
si <n1> < <n2> alors LT retourne <n1> sinon LT retourne NIL. 
ex: (LT 5 5) rr NIL 


(LT 4 5) Er 4 
(LT 0) kP NIL 
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3.17 LES FONCTIONS LOGIQUES 


Pour toutes les fonctions qui vont être décrites, les arguments <n1> et 
<n2> doivent être de type entier. Ces fonctions ne travaillent que sur 
des OCTETS (donc que sur les 8 bits de poids faibles des nombres), ne 
réalisent aucune conversion de type et ne provoquent jamais d'erreur. 


(COMPL <n>) [SUBR à 1 argument] 
retourne la valeur du complément logique de <n>. 
(COMPL <n>) est équivalent à (LOGXOR <n> #FF). 
ex : (COMPL 0) rr 255 en héxadécimal #00FF 
(COMPL -2) rr 1 | 
(LOGAND <n1> <n2>) [SUBR à 2 arguments] our LOGical AND 
effectue l'opération de ET logique entre <n1> et <n2>. 
ex : (LOGAND #36 #25) KF #24 
pour savoir si <n> est une puissance de 2 évaluez : 


(= <n> (LOGAND <n> (MINUS <n>))) 


(LOGOR_<n1> <n2>) [SUBR à 2 arguments] our LOGical OR 
effectue L'opération de OÙ logique entre <n1> et <n2>. 


ex : (LOGOR #15 #7) 1P #17 


(LOGXOR <n1> _<n2>) [SUBR à 2 arguments] our  LOGical XOR 


effectue l’opération de OÙ exclusif logique entre <n1> et <ne>, 


ex : (LOGXOR 5 3) KF 6 


Il n’y a pas de déca lages logiques en MISP| 8, ces fonctions doivent être 
écrites sous forme d’ EXPR. 


ATTENTION : il faut empêcher les erreurs de débordement 
d’entiers AVANT d’utiliser ces décalages. 


(DE LOGSHIFT (n nb ;; OVERFLOW) 
décale logiquement la valeur n de nb positions. 
Si nb est >0, le décalage s’effectue à gauche, 


$ 
$ 
$ Sinon si nb <0, le décalage s’effectue à droite. 
(IF (= nb 0) 


n 

(IF (< nb 0) ` 
(LOGSHIFT (// n 2) (1+ nb)) 
(LOGSHIFT (x n 2) (1- nb))))) 


ve ve 
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IV - LES ENTREES/SORT IES 


Les entrées/sorties s'effectuent soit au niveau du caractère soit au 
niveau des. S-expressions [VLISP, sur des flux séquentiels. 


Toutefois de nombreuses fonctions ont été rajoutées pour pouvoir utiliser 
des périphériques spéciaux tels : 

- des terminaux graphiques 

- des boîtes à musique 

- des télévisions en couleur 


4.1 LES FONCTIONS D'ENTREE DE BASE 


Toutes les lectures sont réalisées dans le flux d'entrée qui est associé 
soit au terminal, soit à un fichier sélecté par la fonction INPUT, soit à 
une bande magnétique (de type cassette). 


Voici les fonctions d'entrée de base. 


(READ) [SUBR à O argument] 


Lit la S-expression suivante de type quelconque (atome ou liste) du 
flux d’entrée et la retourne en valeur. READ est la principale 
fonction de lecture et permet de Lire des objets  [VLISPI. Son 
fonctionnement détaillé est donné dans la section suivante. 

Si une erreur de syntaxe MISP est détectée, une erreur fatale se 
produit et le Libellé suivant est imprimé : 


** erreur de syntaxe. ou 
** syntax error. 


Le plus souvent cette erreur provient d’une mauvaise utilisation des 
paires pointées ou d’un P-NAME trop long (de plus de 62 caractères). 


du a L’oubli du caractère ". 


(READL INE) CSUBR à O argument] 


Lit la Ligne suivante du flux d’entrée et retourne la Liste des 
caractères de cette ligne. Cette liste ne contient pas le caractère 
fin de ligne (en l’occurrence le caractère Return) ni les caractères 
line-feed. READLINE est utilisée pour réaliser à peu de frais les 
interfaces entre programme et utilisateur. 


ATENTION : cette fonction n'effectue pas de conversion automatique 
des caractères minuscules en caractères majusculés (pour réaliser 
ette conversion automatiquement, positionnez le bit 4 du STATUS 


READ). 
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READL INE peut être défini en NUISP] de la manière suivante : 


(DE READLINE © 
(FREVERSE 
(LET (C1) (c CREADCH))) 
(COND 
( (EQ (CASCII c) 40D) 
+ code du Return 


lL) 
((EQ (CASCII c) #04) 
s code du Line/Feed 
(SELF L (READCH) )) 
(T (SELF (CONS c l) CREADCH)))))) 


ex : ? (READLINE> appelle la lecture d’une ligne 
Le gai rossignol Ligne terminée par Return 
= Le/ gai/ rossignol); liste des caractères lus 


“0 en 


; pour fabr iquer une suite de mots à partir d’une Ligne 
s qui ne contient pas de caractères spéciaux ( ) . [] 
(IMPLODE (APPEND "(" (APPEND (READLINE) ")"))) 


Le merle moqueur ; ligne terminée par Return 
= (Le merle moqueur) : liste des atomes lus 


«Y 


(READCH)_[SUBR à O argument] {pour READ Character} 


Lit et retourne en valeur le caractére suivant du flux d’entrée. Ce 
caractère est retourné sous la forme d’un atome (littéral pour les 
Lettres et numérique pour les chiffres). 

Cette fonction n'effectue pas de conversion automatique des 
caractères minuscules en caractères majuscules. 


(PEEKCH) [(SUBR à O argument] fpour PEEK CHaracter } 


retourne en valeur le caractère du flux d’entrée d’une manière 
identique à la fonction READCH, toutefois, ce caractère n'est pas 
véritablement lu mais seulement "consulté". Il en résulte que des 
appels successifs de la fonctions PEEKCH retournent toujours le même 
résultat. PEEKCH est utilisée pour "sentir" le caractère suivant du 
flux d’entrée AVANT de le Lire véritablement. 


(TEREAD) [SUBR_á O argument] pour TErminate READ? 


passe à l’enregistrement suivant du flux d'entrée (une ligne sur TTY, 
une carte perforée, ...) en ignorant le reste éventuel de 
l’enregistrement courant. Cette fonction permet d'effacer le contenu 
du tampon d’entrée. TEREAD retourne NIL en valeur. 
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4.2 CONTROLE DES FONCTIONS D'ENTRÉE 


4.2.1 Utilisation du terminal en entrée 


À chaque demande de ligne sur le terminal, le système imprime le caractère 
? puis un certain nombre d’espaces en fonction de la profondeur de la 
lecture (i.e. du nombre de parenthèses ouvrantes non encore refermées). 
Ce dispositif connu sous le nom de PRETTY-READ (qui est propre à [VLISP) 
permet de contrôler immédiatemment Le niveau d’ imbrication des 
parenthèses. 


De plus un éditeur de Ligne est activé. It en existe de 2 types en 
fonction du système utilisé : 
- L'éditeur de ligne de type TRS80 
- l'éditeur de ligne standard. 
L’ éditeur de Ligne de type TRS80 interprète Les caractères suivants : 
e y détruit le dernier caractère entré 
SHIFT/e : détruit toute la ligne entrée . | e 
BREAK : provoque l'appel de la fonction BREAK qui d’une manière 
standard retourne au top-level de l* interprete. 
ENTER : termine la ligne qui est envoyée aux fonctions de lecture 


L’éditeur de ligne standard interprète les caractères suivants : 
RUBOUT ou DELETE ou e (Backspace) : détruit le dernier caractère 


entré. 
AU ou FX : détruit toute la ligne entrée 
ÎR : reimprime le contenu de la ligne courante (cette commande est 


utile sur les terminaux papier pour s'assurer du contenu du tampon 
après les corrections). . 

4C : provoque l'appel de la fonction BREAK qui d’une manière standard 
retourne au top-level de l’ interprète. 

. RETURN : termine la ligne qui est envoyée aux fonctions de lecture. 


IL existe dans les systémes TRS 80, un véritable éditeur sur écran inclu 
dans l* interprete lui-même. Sa description est donnée au chapitre 6. 


4.2.2 La lecture standard 


La lecture des S-expressions VLISP par la fonction READ s’effectue en 
format LIBRE i.e. que chaque élément syntaxique peut être encadré d’un ou 
plusieurs espaces. a 


Durant la lecture des atomes littéraux seuls les 62 premiers caractéres 
sont pris en compte. IL y a transcodage automatique des caractères 
minuscules en caractères majuscules. Les caractères de contrôle (i.e. 
les caractères entrés en pressant simultanément la touche CNTRL et le 
caractère) sont imprimés à la DEC (i.e. © suivi du caractère). S’il faut 
insérer des caractères spéc taux dans un atome littéral, il faut les faire 
précéder du caractère spécial quote-caractère / (le slash). 

Une autre solution consiste à utiliser les pseudo-chaînes de caractères. 
Une pseudo-chaîne de caractères est représentée par un suite de caractères 
quelconques encadrée du caractère délimiteur de chaîne (par défaut le "). 
N’ importe quel caractère peut faire partie d’une chaîne en particulier les 
caractères de mouvement de papier, Return, Line-feed ... Il n’y a jamais 
de transcodage minuscule majuscule durant la lecture des chaînes. 

Ces pseudo-chaînes sont considérées comme des ATOMES LITTERAUX normaux, 
mais possèdent une propriété remarquable : à leur création elles sont 
considérées comme des constantes (et possèdent leur propre valeur en 
C-VAL). Ce dernier trait permet d'éviter de "quoter" ces atomes et d’être 
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ainsi compatible avec les interprètes qui possèdent réellement des chaînes 
de caractères (en particulier [VLISP] 10). 


ex : CaR correspond à l’atome CAR 
LONG TRESLONGATOME : " LONGTRESLONGATOME 
RE / (37) n i RE (3) 
"Tres bizar. ?/#QO" Tres bizar. ?/#0 


Les nombres entiers sont représentés par une suite de chiffres décimaux 
qui peut être précédée du signe + ou du signe -. Les nombres héxadéc imaux 
sont représentés par une suite de chiffres hexadécimaux (chiffre décimal 
de 0 ... 9 ou lettre de À ... F) précédée du caractère spécial # (le 


dièze). 
ex: 123 correspond au nombre 123 
+27 j j 27 
o 4 a T e AS 
#12 n T 18 
FF j Ë" 235 
+ | n’est pas un nombre e 


IL est possible d’ insérer des commentaires, qui sont totalement ignorés au 
cours de la lecture. Un commentaire est une suite de caractères 
quelconques précédée d’un caractère de type début de commentaire et 
terminée par le caractère de type fin de commentaires OU de nouveau par un 
caractère de type début de commentaires. Par défaut il n’y a qu’un 
caractère de type début de commentaires, le caractère point-virgule (3) et 
qu’un seul caracrère fin de commentaires le caractère Return. Par défaut 
tout commentaire s'arrêtera donc en fin de ligne. 


ae | . Commentaires 3. . 
ex : (DE FOO (N ;le nombres L 3; la liste;) - au milieu de la ligne 
(IF (= N 0) s yen a pu à faire - en fin de ligne 


La représentation des Listes est classique : une liste se représente par 
une parenthèse ouvrante "(" suivie des éléments de la liste séparés par 
des espaces et suivis d’une parenthèse fermante ")". li est possible 
également d’utiliser la notation pointée généralisée : 


( S-expr E S-expr ) 


ex 


(A. B. (C. D))) correspond à (ABC. D) 
(CA) . (B)) s à (CA) B) 


Au début de la fonction READ, il peut y avoir un nombre quelconque de 
parenthèses fermantes qui sont ignorées. Ceci permet de refermer à coup 
sûr les S-expressions avec une giclée de parenthèses fermantes sans avoir 


` 


à les dénombrer. 


(DE FOO (N) C(ADD1 N)))))) est lu sans erreur 


Une fonction STATUS permet de régler certaines modalités de la lecture. 
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(STATUS READ <n>) LESUBRI 


permet de connaître {si la valeur <n> n’est pas fournie) ou de 
positionner (si la valeur <n> est fournie) les indicateurs internes 
de la fonction READ. Chaque indicateur est représenté par un bit 
dans la valeur <n>. A l’initialisation du système, tous ces 
indicateurs valent 0 (on a donc implicitement L'appel (STATUS READ 
0)). 


Signification des bits du STATUS READ : 


- bit 0 = Q si il faut faire L’écho de tous les caractères lus; bit 0 = 1 
s’il n’y a pas d'écho à effectuer. 


bit 1 = 0 si le périphérique d’entrée est un terminal (TTY); bit 1 = 1 
si Le périphérique d’entrée est un lecteur de ruban perforé. 


- bit 2 = 0 si le périphérique d’entrée est un périphérique à écran (CRT): 
bit 2 = 1 si le périphérique n’est pas un écran. 


bit 3 = 0 si le périphérique d’entrée à écran ne fait pas l'écho des 
caractères DElete ou RUBOUT; bit 3 = 1 si le terminal effectue 
L’ écho. | Les E E E 


ex : réalisation d’une fonction de lecture sans écho : 


(DE LIRAVEUGLE © 
(STATUS READ 1) 
(PROG1 (READ) (STATUS READ 0))) 


- bit 4 = 0 si le périphérique possède des minuscules. Si ce bit est à 1 
tous les caractères minuscules sont dès leur lecture sur le 
terminal convertit en caractères majuscules. 


ex : fonction de lecture d’une ligne en capitale 


(DE LIRCAP ( ;; vieuxstatus) 
(SETQ vieuxstatus (STATUS READ)) 
(STATUS READ (LOGOR vieuxstatus #10)) 
(PROGI (READLINE> (STATUS READ vieuxstatus))) 


4.2.3 Les macro-caractéres 


Un macro-caractere est un caractère quelconque auquel a été associé une 
fonction qui est lancée automatiquement à la Tecture de ce caractère dans 
le flux d'entrée. La valeur retournée par cette fonction remplace le 
macro-caractère lu. Tout caractère peut être utilisé comme 
macro-caractère. 


IL existe 3 macro-caractères standards : 
- le quote (apostrophe) ” qui, placé devant une S-expression quelconque, 
retourne la liste (QUOTE S-expression). 
ex : ? (A B) est équivalent a (QUOTE (A B)) 
A p (QUOTE (QUOTE A)) 


- le contrôle-C fC qui provoque l'abandon de la lecture en invoquant la 
fonction système BREAK. 
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- le & (et commercial) qui permet d’appeler directement l’éditeur vidéo 
des systèmes TRS 80. 


Le caractère de spécification de nombre en hexadécimal (le #) n’est pas un 
macro-caractère mais bien un caractère spécial. 


Il existe une fonction pour définir un macro-caractère. 


(DMC <c> <l> <s1> ... <sN>) [FSUBRI 
{pour Define Macro Character} 


l’argument <c> doit être un atome littéral mono-caractère. DMC 
associe à ce caractère une fonction qui possède une liste de 
variables locales <l> (cette liste est obligatoire a cette position 
même s'il n’y a pas de variables locales) et un corps de fonction 
<s1> ... <sN>. DMC possède la même syntaxe que les autres fonctions 
de définition (DE, DF et DM) et retourne <c> en valeur. 


ex : si les macro-caractéres standards n'étaient pas 
_ définis, on pourrait le faire de la manière suivante : 


(OMC "’" O 
(LIST QUOTE (READ))) ; retourne la liste (QUOTE <S-expr lue>) ; 


(DMC "AC" O 
(BREAK) > 


(DMC "8" | 
(LIST *EDITY CREAD))) s retourne la liste CŒDITV <S-expr lue>) ; 


La fonction DMC peut étre défini en VOIP : 


(DF DMC (L) | 
(EVAL (CONS ?’DE L)) s fabrique la fonction associée 
(TYPECH (CAR L) 5)) s force le nouveau type de ce caractère 
(CAR L)) s et retourne en valeur le caractere. 


Pour détruire une définition de macro-caractére, il faut changer le 
type du caractére et détruire la fonction qui lui était associée par 
exemple au moyen de la fonction suivante : 
(DE REMACH (c) s {pour REMove MÁcro CHaracter} 

(TYPECH c 8) + le caractère redevient normal 

(FTYPE c 0)) . détruit l’ancienne définition. 


ATTENTION : la fonction associée à un macro-caractére étant de la 
même nature que les fonctions définies par l'utilisateur (de type DE) 
il n’est pas possible, pour un atome mono-caractère, de posséder tout 


` 


à la fois une définition de type DE et une définition de type DMC. 
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4.2.4 | ype des caractères 


L*analyseur lexical [VLISP] (i.e. la fonction READ) utilise une "table de 
lecture" pour effectuer commodément son analyse. Cette table associe un 
type codé á chacun des caractéres. 

Cette table de lecture est totalement accessible à l'utilisateur qui peut 
ainsi la changer pour pouvoir Lire facilement de nouveaux dialectes de 
LISP aux syntaxes étranges. 


Les types de caractères disponibles sont les suivants : 


0 : type NULL. Tous les caractères de ce type sont complètement ignorés 
à la lecture (Ex: te caractère  Line/Feed, le caractère 
"Avance-bande" ou NULL ...). 


1 : type QUOTEC. Ce type de caractère est utilisé pour "quoter" 
n”. importe quel autre caractère. "Quoter" un caractère consiste à lui 
donner implicitement le type 8 (le type des caractères normaux). Par 
défaut il n'existe qu’un seul caractère de ce type, le caractère 
"slash" / . | 


2 : type BCOM. Ce type de caractère sert à indiquer le début d’un 
commentaire qui sera terminé à l’occurrence d’un caractère de ce même 
type ou d’un caractère du type suivant. Par défaut il n’existe qu’un 
seul caractère de ce type, le caractère point virgule ; . 


3 : type ECOM. Ce type de caractère sert à indiquer la fin d’un 
commentaire. Par défaut il n'existe qu’un seul caractère de ce type, 
le caractère RETURN | | 


4 : type SEP. Définit un caractére séparateur standard (Ex: l’espace, 
la tabulation ...). 


D : type MACH. Ce type indique que le caractère est un macro-caractère. 
Une fonction est associée à l’atome dont le P-NAME est ce caractère. 
Cette fonction est invoquée automatiquement à la lecture de ce 
caractère dans le flux d’entrée. | DS | 


6 : type CSTRING. Ce type de caractère fait office de caractère 
délimiteur de pseudo-chaîne. Par défaut il n'existe qu’un seul 


caractère de ce type, le caractère guillemets “ . 


7 : type NHEX. Ce type de caractère sert de spécificateur de nombre 
représenté en hexadécimal. Par défaut ce caractère est le dièze # . 


8 : type NORMAL. Définit un caractère normal pouvant être utilisé pour 
construire un P-NAME, 


9 : type DOT. Ce type de caractère (le point . par défaut) sert à 
écrire les paires pointées. 


10 : type LPAR. Ce type de caractère (la parenthèse ouvrante ( par 
défaut) sert de caractère de début de liste. 


11 : type RPAR. Ce type de caractère (la parenthèse fermante ) par 
défaut) sert de caractère de fin de Liste. 


12 : type LBRA. Ce type de caractère (le crochet ouvrant [ par défaut) 
indique le début d’une liste évaluée. 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 83 / 143 


Page 84 8. 2 Manuel de Référence 


13 : type RBRA. Ce type de caractère (le crochet fermant ] par défaut) 
indique la fin d’une liste évaluée. 


(TYPECH <c> <n>) [SUBR à 2 arguments] 


permet de connaître (si <n> n’est pas fourni) ou de modifier (si <n> 
est fourni) le type du caractère <c>. Cette fonction retourne le 
type courant du caractère <c> après modification éventuelle. 

ex : 3 après la redéfinition syntaxique des 
s caractères < et >, 


(TYPECH *< 10) rr 10 
(TYPECH °> 11) xF 11 


ve 


entrée : 
<CONS ? (A> *<B)> 
; est Lue : | | 


(CONS ? (A) ? (B)) 


Voici la table des caractères standards 


#0 0 0 
#1 1 TA 8 
#2 2 'B 8 
HS 3 M 5 (LAMBDA NIL (BREAK)) 
#4 4 1D 8 
#5 D E 8 
#6 6 F 8 
#7 7 bell 8 
#8 8 bs 1 
HS 9 tab 4 
HA 10 1f 4 
FB 11 yt 4 
FC 12 ff 4 
BD 13 cr 3 
HE 14 N 8 
HF 15 *0 8 
#10 16 P 8 
#11 17 1Q 8 
#12 18 MR 8 
#13 19 1S 8 
#14 20 MT 8 
#15 21 AU 8 
#16 22 N 8 
#17 23 N 8 
#18 24 X 8 
#19 25 “Y 8 
#1A 26 Z 8 
#1B 27 ~w 8 
#1C 28 NV 8 
#1D 23 U 8 
#1E 30 B 2 
ALF 31 PA 8 
#20 32 4 
#21 33 | 8 
#22 34 " 6 
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# 7 
#24 36 $ 8 
#25 37 % 8 
#26 38 8€ 5 (LAMBDA NIL (LIST (QUOTE EDITV) CREAD))) 
#27 39 ' 5 (LAMBDA NIL (LIST QUOTE (READ))) 
#28 40 ( 10 
#29 41 ) 11 
H2A 42 x 8 
#2B 43 + 8 
#2C 44 , 8 
#2D 45 =- 8 
#2E 46 e. g 
#2F 47 4 1 
#30 48 0 8 
#31 49 1 8 
#32 50 2 8 
#33 51 3 8 
#34 52 4 8 
#35 53 5 8 
#36 54 6 8 
#37 55 7 8 
#38 56 8 8 
#39 57 9 8 
HSA 98 : 8 
#3B 59 >: 2 
F3C 60 < 8 
#3D 61 = 8 
BSE 62 > 8 
RSF 63 ? 8 
#40 64 RL. 8 
#41 65 À 8 
#42 66 B 8 
#43 67 C 8 
#44 68 D 8 
#45 69 E 8 
#46 70 F 8 
#47 71 G 8 
#48 72 H 8 
#49 73 I 8 
HAA 714 J 8 
#4B 75 K 8 
BAC 76 L 8 
#4D 77 M 8 
#4E 78 N 8 
H4F 73 0 8 
#50 80 P 8 
#51 81 Q 8 
#52 82 R 8 
#53 83 S 8 
#54 84 T 8 
#55 85 U 8 
#56 86 Y 8 
#57 87 HWH 8 
4598 88 X 8 
#59 89 Y 8 
HSA 909 Z 8 
#5B 91 lt 12 
#5C 92 \ 8 
#5D 93 1 13 
B5E 94 1 8 
ASF 9 + 8 
#60 96 çg 8 
#61 97 a 8 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 85 / 143 


Page 86 | _ 8.2 Manuel de Référence 


b 8 

#63 99 c 8 
#64 100 d 8 
#65 101 e 8 
#66 102 f 8 
#67 103 g 8 
#68 104 h 8 
#69 105 i 8 
AGA 106 j 8 
RGB 107 k 8 
R6C 108 L 8 
#6D 109 m 8 
AGE 110 n 8 
RGF 111 o 8 
#70 112 p 8 
#71 113 q 8 
#71 114 r 8 
#73 115 s 8 
#74 116 t 8 
#75 117 u 8 
#76 118 v 8 
- #77 119 w 8 
#78 . 120 x 8 
#79 121 y 8 
#7A 122 z 8 
#7B 125 + 8 
H7C 124 | 8 
#7D 125 } 8 
#7E 126 ~ 8 
#7F 127 0 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 86 / 143 


VLISP| 8.2 Manuel de Référence Page 87 
4.3 LES FONCTIONS DE SORTIE DE BASE 


Toutes éditent dans un tampon de sortie totalement accessible à 
l’utilisateur qui est vidé dans le flux de sortie associé soit à un 
terminal soit à un fichier sélecté au moyen de la fonction OUTPUT. 

Si au cours d’une édition le tampon de sortie devient plein, il est 
automatiquement imprimé, en utilisant la fonction (TERPRI 1), et l’édition 
se poursuit dans un nouveau tampon vide. 


On peut, à tout moment, suspendre une impression sur le terminal (holding) 
en entrant sur le terminal un caractère spécial, faire repartir 
L’ impression en entrant un autre caractère ou bien appeler La fonction 
système BREAK durant une impression. 


Les caractères utilisés dépendent. du système.: 

- avec les systèmes TRS 80 le caractère SHIFT/@ suspend 1? impression, le 
caractère SHIFT/@ (le même donc) la fait reprendre et la touche BREAK 
appelle la fonction BREAK. 


- avec les autres systèmes, le caractère ?S suspend l'impression, le 
caractère "QA la fait reprendre et le caractère Ÿ appelle la fonction 


BREAK. 
(PRIN <s1> <sN>) LFSUBR à N arguments] 


date dans le tanpon de sortie la valeur de l’évaluation des 
différentes S-expressions <81> ... <sN> sans imprimer le tampon. 
PRIN retourne en valeur la valeur de l*évaluation de <sN>. 


(TERPRI <n>) LSUBR à 1 argumentl pour TERminate PRInt 


imprime. tous les caractères du tampon de sortie, se positionne en 
début de ligne en imprimant le code Return , saute <n> lignes en 
imprimant <n> fois le code Line- feed , puis édite un certain nombre 
d”espaces pour se positionner à la marge gauche (voir la fonction 
LMARGIN). Si l’argument <n> n’est pas un nombre ou n’est pas fourni, 
TERPRI agit comme si <n> était égal à 1 provoquant une impression 
avec interlignage simple. L’appel (TERPRI) est donc équivalent a 
(TERPRI 1). 

Si <n> = 0, Le positionnement en début de ligne (au moyen du 
caractère return) est quand même réalisé mais aucune Ligne n’est 
sautée et il n’y pas de positionnement à la marge gauche ce qui 
permet de réaliser une surimpression . Attention toutefois aux 
tentatives de surimpression sur des terminaux à écran... 

Si <n> = -1, le positionnement en début de ligne et à la marge gauche 
n'a pas Lieu et aucune ligne n’est sautée. Cette option permet 
d’ impr imer des messages et d'attendre des HSPOnEes sur la même Ligne 
ce qui facilite les dialogues. 


ex : ? (DE QUAM (msg) 
? (PRIN msg) s édite le msg dans le tampon 
? (TERPRI -1) ; puis imprime le contenu du tampon. 
? a (READ) ) s enfin lecture de la réponse. 
= QUAM 


? (QUAM "Nb de satellites de VEGA") 


Nb de satellites de VEGA ? xxx 
(xxx est la réponse entrée) 
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(PRINT <s1> ... <sN>) [FSUBR à N arguments] 


édite dans le tampon de sortie les différentes S-expressions 

<s1> ... <sN> qui sont évaluées par la fonction PRINT puis imprime 
ce tampon (en faisant un appel implicite à La fonction (TERPRI 1)). 
PRINT retourne en valeur la valeur de l’évaluation de <sN>. 


PRINT peut être défini en de la manière suivante : 


(DF PRINT (LD 
(PROG1 (EVAL (CONS *PRIN L)) CTERPRI 1))) 


ex : ? (PRINT (1+ 9) (CDR ?’ (A B C))) + forme à évaluer 
10 (B C) * exécution 
= (B C) : valeur retournée 


(PRINCH <c> <n>) [SUBR à 2 arguments] {pour PRINE Character } 


édite <n> fois le caractère <c>. Si <n> n’est pas un nombre ou est 
omis, le caractère <c> n’est édité qu’une fois. PRINC retourne <c> 
en valeur. 


ex : (PRINCH " * 10) édite 10 caractères espace dans le tampon 


(LET (n 4) 
(IF (= n 0) 
(EXIT) 
(PRINCH " " n) 
(PRINCH "x" (1+ (xk (- 4 n) 2))) 
(TERPRI) 
(SELF (1- n)))) 


produira 
X 
OK 
KOKK 
KKHOKHOMK 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 88 / 143 


8.2 Manuel de Référence Page 89 
4.4 CONTROLE DES FONCTIONS DE SORTIE 


Les fonctions de sortie éditent les représentations externes des objets 
VLISP dans un tampon de sortie accessible au moyen de fonctions 
spécialisées. 


4.4.1 Le tampon de sortie 


Le tampon de sortie est organisé de La manière suivante : 


| € impression ——————— | 
Je édition  ——| 

— | XKXXXXXXXXXXXXX | ná o o | 
q M 


FT q 
| début du tampon 
| Marge gauche 


| Pointeur courant 
| en Marge droite 


Les éditions ne s’effectuent dans le tampon de sortie qu’entre la marge 
gauche et la marge droite alors que les impressions vont porter sur tout 
le tampon. L'accès aux valeurs de la marge gauche, du pointeur courant et 
de la marge droite est réalisé au moyen de fonctions spéciales ; il 
existe de plus une fonction OUTBUF permettant de manipuler directement 
n’ importe quel caractère de ce tampon de sortie. 


(LMARGIN <n>) [SUBR à 1 argument] {pour Left MARGIN} 


permet de spécifier la marge à gauche <n> de l’impression. Par 
défaut à l’initialisation du système on a (LMARGIN 0). Si <n> n’est 
pas fourni, la marge n’est pas modifiée. LMARGIN retourne la valeur 
de la marge gauche courante et est principalement utilisée par le 
Pretty-print (Voir le chapitre 7) pour gérer automatiquement les 


` 


renfoncements gauches à Ll’ impression des structures de contrôle. 


(RMARGIN <n>) [SUBR à 1 argument] our Right MARGIN 


permet de spécifier la marge à droite <n> de l’ impression. Par 
défaut à l’initialisation du système on a (RMARGIN 62) pour les 
systèmes TRS80 et (RMARGIN 72) pour tous les autres systèmes. Si <n> 
n’est pas fourni, la marge n'est pas modifiée. RMARGIN retourne la 
valeur de la marge droite courante et est utilisée principalement 
pour régler la taille des lignes en fonction du terminal de sortie 
utilisé (télétype, écran, imprimante ...). 
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(OUTPOS <n>) LSUBR à 1 argumenti fpour OUTput POSition} 


permet de spécifier, si <n> est fourni et est un nombre, la nouvelle 
valeur du pointeur courant sur le tampon de sortie. Cet index pointe 
toujours sur le lére position libre dans le tampon. DUIPOS retourne 
en valeur la position courante de ce pointeur. | 


(OUTBUF <n> <c>) [SUBR à 2 arguments] ¿pour OUTput tampon} 


considère le tampon de sortie comme un vecteur et permet donc d’avoir 
accès et/ou de modifier le <n>ième caractère du tampon de sortie avec 
le caractère <c>, si l’argument <c> est donné. OUTBUF retourne 
toujours la valeur du <n>ième caractère du tampon de sortie. 


4,4,2 Limitations d’ impression 


Pour pouvoir limiter Les impressions des structures très longues et rendre 
possible celles des listes circulaires deux nouvelles fonctions ont été 
ajoutées. 


(PRINTLENGTH <n>) [SUBR à 1 argument] 


permet de connaître et/ou de modifier (si l’argument numérique <n> 
est fourni) Le nombre maximum d’éléments de Liste qui est imprimé 
lors d’un PRINT ou d’un PRIN. Par défaut la valeur de ce nombre est 
de 2000. Si une liste contient un nombre d’éléments plus élevé, le 
reste des éléments ne sera pas imprimé et des points de suspension 
apparaitront devant la parenthèse fermante. Cette fonction 
permet de terminer l” impression des Listes circulaires sur les CDR. 
PRINTLENGTH retourne en valeur la longeur maximum courante. 


ex : (PRINTLENGTH 6) rr 6 
| "(123456789 F 123456...) 


(PRINTLEUEL <n>) [SUBR à 1 argument] 


permet de connaître et/ou de modifier (si L'argument numérique <n> 
est fourni) la profondeur maximum d’impression (i.e. le nombre 
maximum de parenthèses ouvrantes non fermées). En cas de 
dépassement, la liste qui provoque le débordement n’est pas imprimée 
et le caractère & est imprimé a sa place. Cette fonction permet 
d’imprimer des Listes circulaires sur les CAR. PRINTLEVEL retourne 
en valeur la profondeur maximum courante. 


ex : (PRINTLEVEL 3) EP 3 
” (DE FOO CL) 
(IF (NULL (CDR L)) L 
(F00 (CDR L)))) 
E? (DE FOO (L) CIF (NULL &) L (FOO 8))) 
impression des listes circulaires ; 


T 10) 
LL 90) 
0 


ve 


EE OVNI 5 Y 
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(SETQ L °X Y Z)) 


? 

= (XYZ) 

? (RPLACD (CDDR L) L) 

= (ZXYÝYZXYÝYZXYÝZXYZXYZXYZXYZXYZX 
= YZXYZXYÝZXYÝZXYÝZXYÝZXYÝZXYZX...) 
? (RPLACA L L) 

= (UCE YZ YZEYZENZEYZERYZRYZE 
= 1728 YZ28Y728YZ728YZ28YZ28YZ28YZ8YZ8 
RE IA O A A A PTS 

2 


4.4.3 L”impression des Listes circulaires ou partagées 


L*utilisation des fonctions de Limitation d’impression du paragraphe 
précédent, pour autant qu’elles stoppent Ll’ impression, ne permettent pas 
de voir quels sont les doublets partagés. Pour cela il faut utiliser les 
fonctions suivantes écrites en MIS qui utilisent la propriété de la 
fonction EQ (ici de la fonction MEMO) suivante : (EQ 11 12) est vraie si 
les 2 Listes l1 et 12 sont les mêmes physiquement (ont la même adresse 
physique). 


s Fonctions d’ impressions circulaires simples : 


(DE CPRINT (1) 
s Fonction d’impression de Ll 
(CPRIN LD) 
(TERPRI) 
OK) 


(DE CPRIN (i) 
s Fonction d'édition de lL 
CCPRINT t 0)). 


(DE CPRIN1 (l vus) 
; Fonction auxillaire 
* vus contient la liste des objets déjà visités 
(LET CL L) 
(IF (ATOM 0 | | 
s Les atomes peuvent être partagés 
(PROGN | 
(STATUS PRINT #7) 
(PRIN l) 
(STATUS PRINT 0)) 
s En cas de liste _ 
(PRINCH "(%) 
(WHILE (LISTP ÙO 
(IF (MEMQ L vus) 
; C’est un objet déjà visité 
= (EXIT (PRIN "...)")) 
s C’est un objet nouveau 
(NEWL vus 1) 
y Récurse sur les CAR 
(SELF (NEXTL 0) 
CIF 1 CPRINCH " ")))) 
(IF (NULL L) 
o Liste se termine bien 


s C’est une paire pointée 
(PRINCH ".") 

(PRINCH * ") 

(PRIN 0) 
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; Fermante finale 
(PRINCH 19)3)332) 


ainsi si (SETA LL ? (A B C D)) 
L'appel (CPRINT (NCONC LL LL)) 
produira ABCD...) 


4.4.4 Edition standard 


Les différents objets [VLISP] sont édités dans le tampon de sortie en 
respectant l’unique régle suivante : la représentation externe d’un objet 
atomique ne peut être éditée à cheval sur deux Lignes; ceci pour les 
atomes littéraux et les nombres. = | l 
L” impression de La fonction (QUOTE <s>) s'effectue *<s> (donc en 
restituant le macro-caractère standard d’entrée) pour des raisons de 
lisibilité. n j | 

N 
Une fonction STATUS permet toutefois de régler certaines modalités 
d’ impression et la fonction PTYPE permet de manipuler aisément le P-TYPE. 


(STATUS PRINT <n>) [FSUBRI 


permet de connaître (si la valeur <n> n'est pas fournie) ou de 
positionner (si la valeur <n> est fournie) les indicateurs internes 
de la fonction PRINT. Chaque indicateur est representé par un bit 

dans la valeur <n>.. A l’initialisation du système, tous ces 
indicateurs valent 0, il y a donc automatiquement un appel implicite 
de (STATUS PRINT 0). 


Signification des bits du STATUS PRINT : 


- bit 0 = 0 s’il faut insérer un espace avant chaque impression par PRIN 
ou PRINT; bit 0 = 1 s'il ne faut pas insérer d’espace avant 
chaque impression. 


- bit 1 = 0s’il ne faut pas faire précéder tous les caractères spéciaux 
des P-NAME par le caractère quote-caractère /. Si ce bit est à 
1, il faut donc éditer le caractère / devant tout caractère 
spécial. 


- bit 2 = 0 si les pseudo-chaînes sont restituées sans le caractère 
guillemets. Si ce bit est à 1 les pseudo-chaînes sont éditées 
encadrées du caractère délimiteur de chaîne, le ". 


(PTYPE <at> <n>) [SUBR à 2 arguments] 


permet de modifier (si l’argument <n> est fourni) ou de consulter (si 
L'argument <n> n'est pas fourni) la valeur du P-TYPE de l'atome 
littéral <at>. Ce P-TYPE est principalement utilisé par le 
PRETTY-PRINT pour y stocker le format à utiliser pour éditer cet 
atome en tant que fonction. Toutefois, le système gère le bit 7 qui 
est positionné si l’atome a été lu sous forme d’une pseudo-chaîne. 

PTYPE retourne la valeur courante du P-TYPE de l’atome littéral <at>. 
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4.5 SELECTION DES FLUX D'ENTREE/SORTIE 


Dans l’état minimum du système, [VLISP] 8 peut gérer simultanément 
- un terminal d’entrée/sortie 
-~ un terminal auxilliaire d’entrée/sortie 


Certains systèmes VLISP 8 ont accès à un système de gestion de fichiers sur 
disquette : 

- la version MDS a accès au système 1SIS 1 ou 2 

- la version TRS a accès aux systèmes TRSDOS, NEWDOS+ ou CP/M 

- la version SORCERER a accès au système CP/M 


Dans ces systèmes, MISP 8 permet de manipuler en plus du terminal 
d’entrée/sortie et du terminal auxilliaire : 

- un fichier d'entrée 

- un fichier de sortie 


Une spécification de fichier <file> est en [VLISP] 8 un atome littéral qui 
utilise la même syntaxe que le système hôte. Ces atomes contenant en 
général des caractères spéciaux, il est recommandé d'utiliser des 
pseudo-chaînes de caractères comme spécificateur de fichier. 


sous ISIS "dd: ffffff.xxx " 
sous TRSDOS "ffffffff/xxx. pppppppp: d" 
sous CP/M "d: fFFFfffFF. xxx" 


dans lesquelles : 

- dd.. est la spécification d’un périphérique 
- ff,. est le nom du fichier 

- XX.. est l'extension du fichier 

- pp.. est la protection du fichier 


ex 2 "“:F1:PROG. VLI " 
OO MLP e 
"RESUL.LST " 
"PRETTY/VLI:1" 


= "A:F00.BAR" 


ATTENTION : pour Le système ISIS, la spécification doit TOUJOURS se 
terminer par un caractère espace. 


IL est recommandé d’utiliser les extensions suivantes : 


YLI pour les fichiers source en 8 
.LST pour les fichiers résultat 
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4.5.1 Les fonctions sur les flux 


CINPUT <flux>) [SUBR à 1 argument] 


cette fonction permet de sélecter le flux d'entrée <flux>. Ce flux 
peut être: o g 

NIL, it s’agit alors du terminal. 

T, il s’agit alors du périphérique auxilliaire. 

<file>, il s’agit alors d’un fichier sur disque. 


Si durant une lecture une erreur se produit, le message suivant 
apparait dans le flux de sortie : 


** erreur de lecture. ou 
.** read error. 


le fichier en question est fermé et le terminal est ouvert à sa 
place. o | | | | | 


De même s’il n'est pas possible d’ouvrir le fichier <file> en entrée 
(Le fichier n'existe pas, le périphérique n’est pas disponible ou 
pour toute autre raison ...) la fonction INPUT retourne NIL. 


Enfin il est possible de déclencher avec cette fonction (ou avec les 
Lectures qui vont suivre) des erreurs du système de gestion de disque 
lui-même. 


(EOF) [SUBR à O argumentl pour End Of File} 


cette fonction est automatiquement lancée par le système 8 à la 
fin du fichier d'entrée. EOF peut être également lancée par 
l’utilisateur pour provoquer artificiellement des fins de fichiers en 
lecture (le "SIGNAL EOF;" cher aux PLlistes). D’une manière standard 
EOF imprime le message d’avertissement suivant : | p 


xx Fin de fichier. ou 
"e E.O.F. 


puis effectue l'appel (INPUT) qui refait passer en mode terminal. 
EOF peut bien évidemment être redéfinie sous forme d’une EXPR pour 
gérer soi-méme les fins de fichiers. 


L*action standard de cette fonction peut être décrite en |VLISP] : 


(DE EOF () 
(PRINT "xx Fin de fichier.") 
(INPUT) ) 


Si cette fonction est redéfinie par l’utilisateur, elle doit 
comporter explicitement une ouverture d’un fichier d’entrée (au moyen 
de La fonction INPUT) sous peine de déclencher une erreur du système 
hôte. — | | 


Il n’y a jamais de fin de fichier sur le terminal en entrée sauf à 
définir un macro-caractère de fin de fichier. Par exemple : 


* définition du caractère Z (control-Z) comme fin de fichier d’entrée 


? ~ "AZ" O (EDF)) 


( 
À 
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3 la frappe d’un ÎZ provoquera l’appel de la fonction EOF 


? TZ 
xk Fin de fichier 


(OUTPUT <file>) [SUBR à 1 argument] 


cette fonction permet de sélecter le flux de sortie <flux>. Ce flux 
peut être : 

NIL, il s’agit alors du terminal. 

T, il S agit alors du périphérique auxilliaire. 

<f i le>, il s’agit alors d’un fichier sur disque. 


Si durant une écriture, une erreur se produit, le fichier en question 
est automatiquement fermé, le terminal est ouvert à sa place et le 
message suivant apparait : as | | 


** erreur d'écriture. ou 
** write error. a 


De même s’il n’est pas possible d’ouvrir le fichier <file> en sortie 
(Cil n’y a plus de place, le périphérique n’est pas disponible ou pour 
toute autre raison ...) cette fonction retourne NIL. 


Enfin il est possible de déclencher avec cette fonction (ou avec Les 
écritures qui vont suivre) des erreurs du système de gestion de 
disque lui-même. O | | 


ex : de manipulation de fichiers . 


s fonction COPYFILE qui copie entièrement le fichier 
; d’entrée <filin> dans le fichier de sortie <filout> 
(DE COPYFILE (<filin> <filout> 35 nbsexp) 
(OR (INPUT <filin>) (EXIT (LIST “TL n'y a 2" <filin>))) 
(OR COUTPUT <filout>) (EXIT CINPUT) (LIST “Prob Lème avec 3 " <filout>))) 
(SETA nbsexp 0) 
(STATUS PRINT #7) 
(ESCAPE EOF 
(WHILE T 
(SETA nbsexp (1+ nbsexp)) 
(PRINT (READ) ) )) 
(INPUT) 
(OUTPUT) 
(STATUS PRINT 0) 
(PRINT "Copie de :" <filin> "sur" <filout> 
a ", " nbsexp "S-expressions écrites.")) 
i K>) 


? (COPYFILE "CIRC/SAV:0" "CP/VLI:1") 
COPIE DE CIRC/SAV:0 SUR CP/VLI:1 7 S-EXPRESSIONS LUES. 
OK 


? (COPYFILE "PRETTY.VLI * ":*Fi:<PRETTY.YLI "> 
ió de PRETTY.VLI sur :F1:PRETTY.VLI . 341 S-expressions écrites. 
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On remarquera La redéf init ion dynamique de la fonction EOF (au moyen d’un 
ESCAPE) qui permet de récupérer (à La manière d’une interruption) la 
condition fin de fichier. | m | | Eo 


4.5.2 Le fichier initial 


A Ll initialisation des systèmes 8 utilisant des fichiers, un ichier 
initial est lu avant de passer en mode conversationnel sur le terminal. 
Ce fichier se nomme : | 

- "VLISP.INI " dans les systèmes ISIS 1 et 2 | 
- "VYLISP/INI" dans les systèmes TRSDOS et NEWDOS+ 
- "YLISP.INI" dans les systèmes CP/M 


Ce fichier contiendra les définitions de EXPR/FEXPR/MACRO que 
l’utilisateur désire posséder à chaque appel de MISP 8. 


Le texte de ce fichier de la version TRS est donné au paragraphe 8.1. 


4.5.3 Le mode AUTOLOAD de fonctions 


Comme il est fastidieux de charger à la main plusieurs fichiers de 
fonctions à chaque exécution VLISP 8 permet l’utilisation de fonctions 
autoloads (qui se chargent toutes seules dynamiquement à leur premier 
appel). Ceci est réalisé au moyen des 2 fonctions suivantes (qui peuvent 
bien entendu se trouver dans le fichier initial vu a la section 
précédente) : | 


(DF LIBRARY (CL) 
s chargement en douceur d’un fichier disque 
(IFN (INPUT (CAR DD)... 
-  KEXIT (LIST (CAR 1) "n existe pas.")) 
(ESCAPE EOF 
(WHILE T 
(EVAL (READ) ) 
(IF (CADR L) (PRINCH "a "2292 
(INPUT) 
(IF (CADR 1) (TERPRI)) 
(CAR 1L))) 


(DF AUTOLOAD <L) 
s définition de fonction autoload 
s (AUTOLOAD fichier atl ... atN) 
(MAPC (LAMBDA (at) 
(EVAL (LIST ‘DM at * (LD) 
(LIST *FTYPE (LIST QUOTE at) 0) 
(LIST *LIBRARY (CAR L)) 
” 103) 
(COR 1))) | 


Ainsi.l’appel : 
(AUTOLOAD "PRETTY/VLI" PRETTY) 

donne la définition suivante à la fonction PRETTY : 
(DM PRETTY (UD) 


(FTYPE *PRETTY 0) 
(LIST ”LIBRARY "PRETTY/VL1") 
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ha 


ce qui fait qu’à la première évaluation de (PRETTY ...) la MACRO est 
appelée. Cette MACRO se détruit elle-même (pour éviter de boucler au cas 
ou la fonction ne serait pas définie) puis évalue (LIBRARY "PRETTY/VL1") 
qui charge en silence le fichier "PRETTY/VLI”". | | 

La valeur retournée par la MACRO étant l’appel originel (PRETTY ...) 
lui-même, EVAL reévalue cette forme dans laquelle la fonction PRETTY est 
maintenant définie (cette nouvelle définition se trouvait dans Le 
fichier). Ouf. 
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4.68 FONCTIONS SPECIALES SUR LE CASSETOPHONE 


La plupart des systèmes TRS 80 peuvent utiliser un cassetophone. Son 
utilisation est La même qu’avec les autres processeurs du TRS80 (BASIC, 
EDTASM ...). Son fonctionnement sera donc erratique et générateur de 
nombreux tourments... 


Il est possible de diriger les Fu. d'entrée et de sortie sur cassette, ce 
qui permet de ranger et de restaurer des définitions de fonctions sur 
cassette. 


CINPUTAPE <i>) LSUBR à 1 argument] 


si l’indicateur <i> est positionné (s’il est différent de NIL) permet 
d'associer la cassette au flux d'entrée. Toutes les lectures se 
feront donc sur la cassette. Si l’ indicateur n'est pas positionné 
(si on évalue (CINPUTAPE)) les lectures reprennent sur Le flux 
d'entrée courant (i.e. sur le terminal), C’est lLl’évaluation d’une 
forme (INPUTAPE) qui provoque l'arrêt de la lecture sur cassette. Il 
est donc impératif que cette forme figure en fin de cassette. 


COUTPUTAPE <i>) ESUBR à 1 argument] 


si l’ indicateur <i> est positionné (s’il est différent de NIL) permet 
d'associer La cassette au flux de sortie. Toutes Les impressions se 
feront donc sur la cassette. Si l’indicateur n’est pas positionné 
(si on évalue (OUTPUTAPE)) les impressions reprennent dans le flux de 
sortie courant (i.e. Le terminal). 


Voici une fonction MISP] capable d’enregistrer sur K7 
une suite de définition de fonctions : 


(DF FSAYE (1) 
s L contient la liste des fonctions à écrire 
(OUTPUTAPE T) 
(WHILE 1 
(PRINT 
_  CMCONS 
(CASSA (FTYPE (CAR L1)) 
’ (CEXPR . DE) (FEXPR . DF) (MACRO . DM))) 
(CAR L) 
(FVAL (CAR 1L))))) 
(PRINT ? CINPUTAPE 03) 
IS O) 
L 


(CSAVE) [SUBR à O argument] 


permet de ranger sur K7 tout l’espace de travail de l’interprète. 
CSAVE retourne T en valeur. 
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(CLOAD) ESUBR à O argument] 


permet de restorer tout l’espace de travail de l’interprète à partir 
de la KZ. C’est donc l'opération inverse de la fonction CSAVE. 
CLOAD retourne T en valeur. Ces deux fonctions ne peuvent pas être 
écrite en MISP. 


4.7 FONCTIONS SPECIALES SUR TERMINAUX 


Un ensemble de fonctions permettent de travailler directement sur le 
terminal (TTY) pour utiliser au mieux toutes ses possibilités. Ces 
fonctions n'utilisent pas le système d’entrées-sorties classique et 
peuvent donc être utilisées à tout moment. a 


4.7.1 Fonctions sur terminaux classigues 


Ces fonctions sont utilisables sur n° importe quel terminal (en particulier 
sur tous les terminaux papier et à écran). 


CTYI) ESUBR à O argumenti fpour _TtY Input? 


retourne un nombre représentant le code interne du caractére suivant 
lu sur La TTY, sans aucune conversion et sans utiliser l'éditeur de 
Ligne du moniteur (en particulier les caracteres RUB-0UT, et les 
différents control-caracteres ne sont plus effectifs). | 


(TYS) [SUBR à O argument] fpour TtY Sneak? 
si un caractére est prêt à être lu sur le terminal, retourne la 
valeur que retournerait la fonction TYI, sinon si aucun caractère 
n’est prêt TYS retourne NIL. Cette fonction permet de tester si un 
caractère a été frappé sur le terminal. ATTENTION : si un caractère 


est effectivement retourné il est réellement lu. 
Donc (UNTIL (TYS?) est bien équivalent à (TYI). 


(TYO_<n>) [SUBR à 1 argument] ‘pour TtY Output; 


imprime sur le terminal le caractère de code interne <n>. Il n’y pas 
de conversion de caractère au moment de la sortie (par ex: les 
caractères contrôles sont envoyés directement sans passer par la 
forme Tx). IL sera donc possible d'envoyer au moyen de cette 
fonction des caractères de contrôle (comme le déplacement du curseur) 


% 


propre à chaque terminal. 
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4.7.2 Fonctions sur _ terminaux à écran 
Ces fonctions ne sont disponibles que pour des terminaux à écran pour 
lesquels il est possible d’adresser le curseur. Actuellement seuls les 


systèmes TRS 80 possèdent ces fonctions. Le système LISP/LOGO de H. WERTZ 
(voir Le chapitre 8) en fait une utilisation intensive. 


(CLEAR <n>) [SUBR à 1 argument] 


_ permet d'effacer tout l'écran avec le caractère de code interne <n> 
et de positionner le curseur au début de la première Ligne. CLEAR 
retourne toujours T en valeur. Le code interne de l’espace étant le 
nombre #20, l’appel (CLEAR #20) efface donc tout l*écran. 


(DISPLAY. .<n>..<s>) [SUBR à 2 arguments]... 


cette fonction permet d’afficher sur un écran une suite de caractères 
a un emplacement donné. <n> est la position sur l’écran (qui est 
considéré comme un vecteur dont le premier élément est l’élément 0) à 
laquelle doit être affiché les caractères. Cet écran possède 16 
Lignes de 64 colonnes les positions sur l’écran variront donc de 0 à 
1023. Si L'argument <n> n’est pas fourni, la position courante du 
curseur sur l’écran est utilisée. 


L’argument <s> indique les caractères à afficher. Il peut être : 

- un atome différent de NIL. Dans ce cas tous les caractères du P-NAME de 
cet atome sont affichés à la position indiquée par <n>. L*action est 
donc identique à la fonction PRIN. | | 

- une liste de CODES INTERNES. DISPLAY va faire apparaître sur l'écran (à 
la position indiquée par <n>) cette suite de codes internes. Dans le 
système TRS 80 on a ainsi accès aux possiblités graphiques en utilisant 

en particulier les codes internes de 129 à 191 (ou de 80 à BF)... 

- rien (i.e. la valeur NIL ou l'absence d’argument). Dans ce cas aucun 
caractère n'est visualisé {on se demande ce qu’il pouvait faire [n.d.cl} 

Ce dernier type de l'argument <s> permet de changer la position du 
curseur sans rien faire apparaître de caractères sur l’écran. 


DISPLAY retourne en valeur la position courante du curseur qui pointe sur 
le premier emplacement libre (après donc l'affichage). 


La mémoire de rafraîchissement de l'écran dans le système TRS80 se trouve 
a l’adresse #3C00. 


DISPLAY peut donc se traduire en de la manière suivante : 


(DE DISPLAY (n L) 
(MAPC 
(LAMBDA (c) 
(MEMORY (+ #3C00 n) c) 
(SETA n (1+ n))) 
L) 


Voici une fonction qui montre les caractères graphiques du TRS 80 : 


(DE GRAPH (n p pos cod) 
(CLEAR #20) 
(SETA n 8 pos 0 cod 128) 
(WHILE (> n 0) 
(SETQ p 8) 
(WHILE (> p 0) 
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(DISPLAY pos cod) 
(DISPLAY (+ pos 64) (LIST 45 COD 45)) 
(SETA p (1- p) cod (1+ cod) pos (+ pos 8))) 
i UN n (1- n) pos (+ pos 64))) 
TY1)) 


appel étant réalisé : 


(GRAPH) 


(POINT <x> <y> <i>) [SUBR à 3 arguments] 


permet d' al Lumer ou d’éteindre (en fonction de V indicateur <i>) un 
point de l’écran semi-graphique du TRS 80. Cet écran semi-graphique 
se compose de 128 Lignes. (la. position en <x>) et de 48 colonnes (la 
position en <y>). Les coordonnées débutent à la position 0. 


ex : (POINT 5 5 T) allume le point 5,5 
(POINT 5 6 T) allume le point en dessous 
(POINT 6 6 T) allume le point suivant à droite. 
(POINT 5 6) efface le point 5 6 


(WINDOW <n>) ESUBR à 1 argument] 


permet de réserver une zone protégée sur U écran. L'argument <n> est 
le nombre de Lignes en haut de l'écran qu’il faut libérer. Cette 
zone est d’abord effacée par. la fonction WINDOW puis le système ne 
l'utilise. plus jamais (en particulier Les scrollings du système 
préservent cette zone). n | 

Cette fonction est utilisée pour réaliser des systèmes graphiques 
conversationnels.. e ; ds ss e e 


À L’ initialisation de MLISP 8, Ll’appel (WINDOW 2) est automatiquement 
réalisé ce qui permet de conserver les 2 premières lignes de l'écran. 
Pour pouvoir l’utiliser pleinement, évaluez (WINDOW 0). 


Après évaluation de la fonction WINDOW, il n’est plus possible 
d'écrire sur les lignes réservées de V écran, sauf à manipuler le 
curseur directement au moyen de la fonction DISPLAY. 


Voici une fonction qui permet d'écrire un message sur la 
première ligne de l'écran, quelle que soit la position 
courante du curseur et l’état de l’écran. 


(DE HEADER (L) 
(LET (ancienneposit (DISPLAY)) 
(DISPLAY 0) 
(PRIN D) 
(DISPLAY ancienneposit))) 


ex : (HEADER "J'y suis j’y reste.) 
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4.8 ENTREES/SORTIES SPECIALES 


Le système 8 permet d’avoir accès au niveau le plus bas du système 
d’entrée/sortie des  micro-processeurs en permettant d'utiliser les 
instructions IN et OUT. Pour les entrées/sorties utilisant le mode I/O 
mapped, la fonction d’accès à la mémoire (MEMORY) pourra être utilisée. 


CIN <port>) [SUBR a 1 argument] 


permet de Lire la porte d’entrée d'adresse <port>, la valeur qui y 
est lue est retournée sous la forme d’un nombre de 8 bits. 


(OUT <port> <val>) [SUBR à 2 arguments] 


permet d’envoyer sur la porte de sortie d’adresse <port> les 8 bits 
de poids faibles du nombre <val>. OUT retourne en valeur le numéro 
de la porte utilisée. 


ex : sur les systèmes TRS 80, l'évaluation de 
(OUT #FF 8) 


permet d’afficher sur l’écran des caractères en double largeur. 


Si le terminal est connecté via un USART de type Intel 82514 d’adresse 
USART-STATUS et USART-DATA, les fonctions TYI, TYS, et TYO peuvent se 
décrire : 


(DE TYI O 

(WHILE (= 0 (LOGAND CIN USART-STATUS) 233) 
s lecture et écho 

(TYO CIN USART-DATA))) 


(DE TYS © 
(IF (= 0 (LOGAND (IN USART-STATUS) 2)) 


NIL 
(IN USART-DATA) )) 
(DE TYO (n) 
(WHILE (= O (LOGAND (IN USART-STATUS) 1))) 


Sa USART-DATA n) 
n 
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4.9 LES SYSTEMES COLORIX 


COLORIX est un système de visualisation couleur réalisé par Louis Audoire 
(12. Il existe 2 systèmes COLORIX : 

- le système COLORIX 75 

- le système COLORIX 79 


Actuellement seuls certains systèmes (MZ80 et certaines versions TRS 80) 
peuvent être connectés aux systèmes COLORIX. 


4.9.1 Le système COLORIX 75 


Dans ce système, l'écran est considéré comme une matrice de 57 Lignes et 
de 64 colonnes. Il est possible par programme de choisir une teinte 
(parmi 4096 combinaisons possibles) pour chacun des points de la matrice. 
Pour faciliter sa gestion, COLORIX 75 utilise un curseur courant interne 
sur le dernier élément modifié. 


(ADRIX <n>) [SUBR à 1 argument] 


permet de positionner le curseur interne de COLORIX 75 à la position 
absolue <n>. La matrice est dans ce cas considérée comme un vecteur 
de 64x57 éléments dont le ler indice est 0. ADRIX retourne <n> en 
valeur. | | 


(ADRIXY <x> <y>) LSUBR à 2 arguments] 


permet de positionner le curseur interne de COLORIX 75 à la <x>ième 
ligne et à la <y>ième colonne. Rappelons que l’écran de COLORIX 75 
utilise 57 Lignes de 64 colonnes. ADRIXY retourne <x> en valeur. 


ADRIXY peut être défini en MISP| de la manière suivante : 


(DE ADRIXY (x y) 
(ADRIX (+ k x 64) y))) 


(COULIX <n>) [SUBR à 1 argument] 


envoie sur COLORIX 75 à la position courante du curseur intenet, la 
valeur <n> considérée comme une couleur, puis le curseur interne est 
automatiquement incrémenté. Rappelons que les couleurs de COLORIX 75 
se codent en binaire de la manière suivante : 


0000rrrrbhbbbvvvv 


Il y a 4 bits pour coder chacunes des trois couleurs de base qui sont 
le rouge <r> le bleu <b> et le vert <v>, ce qui permet d’obtenir 4096 
teintes différentes. Donc (COULIX #F00) envoie un point rouge, 
(COULIX #0F0) un point bleu, (COULIX #OFF) un point jaune ... 


(1) voir COLORIX : un périphérique de visualisation couleur par Louis 
AUDOIRE, Mémoire de maîtrise, UER Informatique, Université de Paris 8 - 
o Vincennes, Juin 1976. 
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COULIX retourne toujours la valeur <n> en valeur. 


(COULOOSE <r> <b> <v>) [SUBR à 3 arguments] 


envoie sur COLORIX 75 à la position du curseur interne, la couleur 
résultante du mélange des trois couleurs de base qui ont des 
intensitées comprises entre 0 et 15 (la valeur de chacune des 
couleurs de base est codée sur 4 bits de la même manière que pour la 
fonction COULIX), puis la position du curseur interne est 


automatiquement incrémentée. <r> représente l’ intensité du rouge, 
<b> celle du bleu et <v> celle du vert.  COULDOSE retourne <r> en 
valeur. 


COULDOSE peut être défini en MISP de la manière suivante : 


(DE COULDOSE (Cr b v) 
(COULIX (+ (x r 256) (+ Gx b 16) v)))) 


CCOULT <n>) [SUBR à 1 argument] 
initialise tout l’écran à la couleur <n>, puis le curseur interne est 


forcé à La position 0. La couleur <n> est codée d’une manière 
identique à fonction COULIX. | 


COULT peut être défini en MISP de la manière suivante : 
(DE COULT (coul) 


(ADRIX 0) positionnement en haut 
(LET (n (x 57 64)) prepare pour 57x84 points 
(IF (= n 0) le compte est bon ? 
ne oui : sort du LET 


(COULIX coul) 
(SELF (1- n)))) 
(ADRIX 0) 
coul) 


non : envoie un point 
et au suivant 

repositionne en haut 

retourne la couleur 


09 De ve vo vo Je ve Ye 
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4.9.2 Le système COLORIX 78 

Le système COLORIX 79 est une version améliorée du système COLORIX 75. 
L’écran de COLORIX 79 est composé de 360 colonnes de 256 Lignes chacunes. 
Chaque point de cet écran peut recevoir une couleur codée sur 12 bits (4 
bits pour chaque couleur primaire). Il y a donc 4096 (2712) couleurs 
possibles. Dans toutes ces fonctions (de type FSUBR car les arguments 
sont évalués par les fonctions elles-mêmes), les arguments <r>, <b>, <v> 
représentent les 3 couleurs primaires (qui sont calculées modulo 16), les 
arguments <x>, <y> représentent des coordonnées (prises modulo 512). 


(CUISINE <r> <b> <v>) [FSUBR] 


initialise tout l'écran à la couleur formée par la combinaison des 3 
couleurs primaires <r>, <b>, <v>. VISINI retourne T en valeur. 
ex : (VISINI) Co efface L'écran 

(VISINI 15 15 15) allume l'ecran 

(VISINI 15 0 0) rempli l'écran de rouge. 


(UISPOT <r> <b> <v> <x> <y>) [FSUBR] 


force la couleur formée par la combinaison des 3 couleurs primaires 
<r>, <b>, <v>, dans le point de coordonnées <x> et <y>. VISPOT 
retourne T en valeur. 


(UISEGM <r> <b> <v> <x1> <y1> ... <xN> <yN>) [FSUBR] 

i trace des segments de droite dans la couleur formée par la 
combinaison des 3 couleurs primaires <r>, <b>, <v>. Les coordonnées 
de ces segments de droite sont: 

- xl yl ,, x2 y2 

- X2 y2 ,, X3 y3 

- xN-1 yN- ,, xN yN 

VISEGM trace donc une ligne polygonale monochrome. 
pour dessiner un carré jaune au milieu de l'écran : 


- (VISEGM 0 15 15 10 10 40 10 40 40 10 40) 


(UISMEM <x> <y>) [FSUBR] 
retourne la couleur actuelle (sous la forme d’un nombre de 12 bits) 


du point de coordonnées <x> et <y>. Cette dernière fonction permet 
de tire la mémoire de rafraîchissement de COLORIX 79. 
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U - LES FONCTIONS SYSTEME 


9.1 LE TOP-LEVEL 


La boucle principale (ou TOP-LEVEL) de l'interprète consiste à évaluer 
indéfiniment La forme : 


(WHILE T CTOPLEVEL)) 


C’est donc la fonction TOPLEVEL qui détermine le mode de fonctionnement de 
L’ interprète. Cette fonction (de type SUBR) est bien évidemment 
redéfinissable par l'utilisateur qui désire se construire son propre 
système. IL existe de plus un STATUS qui permet de contrôler le 
fonctionnement de la fonction TOPLEVEL standard. 


(TOPLEVEL) [SUBR à O argument] 


Cette fonction va, d’une manière standard : 
- lire une S-expression dans: le flux d’entrée courant 
- évaluer cette S-expression 


- imprimer le résultat de cette évaluation dans Le flux de sortie 
courant 


(STATUS TOPLEVEL <n>) [FSUBRI 


permet de connaître (si la valeur <n> n'est pas fournie) ou de 
positionner (si la valeur <n> est fournie) les indicateurs internes 
qui contrôlent la fonction standard TOPLEVEL. Chaque indicateur est 
représenté par un bit dans la valeur de <n>. A l’initialisation du 
système tous ces indicateurs valent 0, il y a donc automatiquement un 
appel implicite de : 

(STATUS TOPLEVEL 0) 


Signification des bits du STATUS TOPLEVEL 
- bit 0 = 0 s’il ne faut pas imprimer les formes lues qui doivent être 
évaluées. Si ce bit est à 1, toute forme lue est imprimée avant 


d’être évaluée. 


- bit 1 = 0 s’il faut imprimer la valeur des évaluations au TOPLEVEL. Si 
ce bit est à 1, aucune valeur d’évaluation n’est imprimée. 


à L’initialisation du système La fonction TOPLEVEL est équivalente a: 
(DE TOPLEVEL (© (PRINT (EYAL (READ)))) 


en tenant compte des bits du STATUS TOPLEVEL, 
TOPLEVEL pourrait se définir en MSP de la manière suivante : 


(DE TOPLEVEL ( ;; s) 
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(SETQ s CREAD)) 

(OR (= 0 (LOGAND (STATUS TOPLEVEL) 1) (PRINT s)) 
(SETQ s (EVAL s)) 

(AND (= 0 (LOGAND (STATUS TOPLEVEL) 2) (PRINT s))) 


ATTENTION : une redéfinition de cette fonction, qui m évalue pas des 
formes lues, rend tout le système MISP inutilisable. 


` 


exemple de définition à éviter : 


(DE TOPLEVEL () (READ) (PRINT ’MARRE)) 
0.2 LE GARBAGE-COLLECT ING 


La zone de l’interprète qui contient les doublets de Liste est allouée 
dynamiquement. Quand cette zone est saturée une machinerie connue sous le 
nom de "Garbage-collecting" est automatiquement appelée pour récupérer les 
doublets de Liste inutilisés. 

Si cet essai s'avère infructueux, une erreur fatale se produit dont le 
Libellé est : 


xx erreur zone liste pleine. ou 
** no room for list. 


De même s’il ne reste plus de place pour stocker les atomes littéraux, une 
erreur fatale se produit dont le libellé est : 


** erreur zone atome pleine. ou 
** no room for atoms. 


(GC <i>) [SUBR a 1 argument] 


permet  d’appeler Le  Garbage-collecting explicitement. Si 
L’ indicateur <i> est différent de NIL, le petit message suivant est 
édité dans le flux de sortie courant à la fin de la récupération : 


HER NB GC : nnn ATOMES=xxxx LISTES=yyyy 


dans lequel : 

- nnn est le nombre de GC effectués depuis le début de la session 
- xxxx est le nombre d*octets libres dans le zone atome 

— yyyy est le nombre de doublets libres dans la zone liste. 


Si avant ce message des nombres hexadécimaux sont imprimés dans le 
flux de sortie courant, cela indique que le G.C. a rencontré des 
OVNI (un OVNI étant comme chacun sait un Objet Vlisp Non Identifié). 
La rencontre de tels objets risque de perturber le fonctionnement de 
l’ interprète par la suite. : 


Dans tous les cas GC retourne le nombre de doublets libres dans la 
zone liste. 
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5.3 ERREURS ET ARRET DE L' INTERPRETE 


À l’apparition d’une erreur durant une évaluation, un message décrivant 
l’erreur (ainsi parfois qu’un argument défectueux) est édité dans le flux 
de sortie courant, 

Tous ces messages commencent pas les caractères ** erreur et ont été 
décris tout au long de ce manuel. IL existe deux formes pour chacun de 
Ces messages : une forme française et une forme anglaise. La sélection 
de l’une de ces deux formes s’effectue durant l’assemblage de 
L’interprète. 


En plus de ce message, plusieurs renseignements complémentaires sont 
également édités : 


..** dernière forme :.<s3. . ou 
xx last form : <s> 


qui indique la dernière forme qui a été évaluée par l’interprète. 


Si l'erreur s’est produite à l’intérieur d’une fonction, le message 
suivant est également édité : 


xx dernière fonction : <s> ou 
xx Jast function : <s>) 


qui indique le corps de la dernière fonction appelée. 

Dans tous les cas et avant de rentrer au top-level de MSP, la fonction 
y BREAK est appelée sans argument. 

La valeur retournée par cette fonction est ensuite utilisée par 

L’ interprète de la manière suivante : 

Si cette valeur est égale à NIL (ce qui est la valeur retournée par 

défaut) il y a retour immédiat au top-level. 


Si cette valeur est différente de NIL (par exemple égale à T) toutes les 
Liaisons dynamiques des variables et des fonctions sont défaites. 


(BREAK) [SUBR à O argument 1 


par défaut cette fonction ne fait qu'éditer dans le flux courant le 
message : 


xx BREAK 
et retourne toujours la valeur NIL. 


Cette fonction peut (et c’est tout son interêt) être redéfinie pour 
gérer soi-même Les erreurs. 


BREAK peut être définie en de la manière suivante : 
(DE BREAK O 

(PRINT "xx BREAK") 

NIL) 


mais peut également servir à réaliser un système plus complexe : 


(SETQ BREAKNB 0) 


http://www.artinfo-musinfo.org VLISP 8.2, mars 1980, page 109 / 143 


Page 110 | coo ISP 8.2 Manuel de Référence 


(DE BREAK 0 
(SETQ BREAKNB (1+ BREAKNB)) 
(PRINT "xx BREAK nb:" BREAKNB) 
(PRINT "Evalue (UNBREAK) pour en sortir.) 
(ESCAPE UNBREAK 
(WHILE T CTOPLEVEL) )) 
(SETQ BREAKNB (1- BREAKNB)) 
(IF (= BREAKNB 0) 
(PRINT "Je retourne au TOPLEVEL. ") 
(PRINT "Je re-entre dans le BREAK nb:" BREAKNB)) 
(PRINT "Faut-il restaurer Les variables") 
(TEREAD) 
(LET (rep (READCH) > 
(COND 


((CHRPOS rep "OTYoty") 
s pour Oui Tak ou Yes 
(EXIT TD) 
((CHRPOS rep "Nn"> 
s pour Non Nie ou No 
o XEXIT NIL)) 
(T (PRINT "Répond OZN") 
(SELF (CREADCH)))))) 


(END) [SUBR à O argument] 


arrête l'évaluation en cours, ferme tous les fichiers ouverts, sort 
de l’interprète, ne passe pas par la case départ et rend le contrôle 
au moniteur. END est utilisée pour sortir définitivement de 
L’ interprete MISP 8.2 et pour revenir au moniteur standard. END est 
la seule fonction standard qui ne retourne pas de valeur. 
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5.4 ACCES A LA MEMOIRE, AU C.P.U et au SYSTEME 


Certaines fonctions permettent d'accéder directement à la mémoire pour 
pouvoir définir de nouvelles fonctions SUBR, pour tester l’interprète ... 
Ces fonctions servent à fabriquer le LAP MISP 8.2 (le LAP est lL’assembleur 
utilisable directement sous (VLISP] qui permet de charger le code produit par 
Les compilateurs). 


Ces fonctions utilisent des adresses mémoire quelconques. Les nombres 
VLISP] ne pouvant pas représenter toutes les adresses possibles (du fait de 
la Limitation des nombres entiers) une adresse mémoire <adr> sera 
représentée en de 2 manières possibles : 

- un nombre 

- Une liste de 2 nombres de la forme :  (<high> <low>) 

dans laquelle le premier nombre <high> est l’octet de poids forts de 
l adresse et le second <low> l’octet de poids faibles. 


l’adresse #3C00 peut s'écrire également (H3C #00) 


(LOC <s>) [SUBR à 1 argument] {pour LOCation of} 


permet de connaître l'adresse de l’objet <s. L’ adresse d’un 
objet [NLIS est le pointeur sur la valeur de cet objet. Cette 
fonction permet de localiser en mémoire les objets 8 qui sont 
crés dynamiquement. 


ex : (LOC (A B C)) FF 15564 
(LOC * (A B C)) EP 13210 


= 


(MEMORY <adr> <n>) [SUBR à 2 arguments] 


permet de consulter ou de modifier (si le 2ème argument numérique <n> 
est fourni) n’importe quel mot de la mémoire dont l'adresse <adr> est 
fournie en premier argument. Cette fonction ne fait AUCUN contrôle 
de validité d’adresse et doit donc être utilisée avec beaucoup de 
précautions. MEMORY retourne en valeur un nombre représentant la 
valeur de l’octet (après modification éventuelle) dont l'adresse est 
spécifiée. 


(CALL <adr> <a1> <a2> <a3>) [SUBR à N arguments] 


le premier argument <adr> doit être l'adresse d’un sous-programme en 
mémoire. CALL va lancer ce sous-programme après avoir charger les 
trois accumulateurs Al, A2 et A3 avec les valeurs respectives <a», 
<a2> et <a3> (i.e. les paires de registres HL, DE et BC). Cette 
fonction doit être utilisée avec précaution mais permet de réaliser 
l’interface machine-VLISP] utilisée dans les compilateurs ou pour des 
traitements particuliers. 

CALL retourne en valeur la valeur actuelle de la paire de registres 
HL après exécution du code débutant en <adr>. 
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(EXECUTE <adr> <l>) [SUBR à 2 arguments] 


<adr> représente une adresse en mémoire. EXECUTE suppose que <l> est 
une Liste de nombres représentant des INSTRUCTIONS. EXECUTE va 
charger cette liste d’intructions en mémoire à l’adresse spécifiée en 
premier argument et lui passer le contrôle au moyen de |” instruction 
machine CALL. Cette liste d’instruction doit OBLIGATOIREMENT se 
terminer par l’intruction RET (de code #C9). 

Si la liste d’intructions (le deuxième argument) n'est pas fournie 
cette fonction transfert simplement le contrôle à l'adresse spécifiée 
comme avec la fonction CALL mais sans initialisation de registres. 
EXECUTE retourne en valeur la valeur actuelle de la paire de 
registres HL après exécution du code. 


ex : exécut ion d’un programme qui force tout L’ écran 
du système TRS 80 avec le code #F0 : 


(EXECUTE #43 #00 : ORG  /4300 
*( #21 #00 H3C > LXI  HL,/3C00 
#36 HEO : MVI  M,/FO 
#11 #01 #3C ; LXI DÉ,/3C01 
#01 #FF #03 s LXI BC,1023 
HED HBO s  LDIR 
HC9 s BET 


(SYSTEM) [SUBR à O argument] 
retourne un atome littéral qui indique le nom du système [MLISP 8 
utilisé. Cet atome peut être : 
- MDS pour les systèmes MDS 
- TRS80 pour les systèmes TRS 
- SORCERER pour les systèmes SORCERER 


(DATE) [SUBR à O argument] 


retourne la date du jour sous la forme d’une pseudo-chaîne de 
caractères. 


ex : (DATE) rr  12-Feb-80 


(TIME) ESUBR à O argument] 


retourne l'heure du jour sous la forme d’une pseudo-chaîne de 
caractères. 


ex : (TIME) Er 14:04:20 
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UI - L'EDITEUR EDITU 


Les systèmes TRS 80 possèdent un éditeur temps réel sur écran vidéo, 
l’éditeur EDITV, qui permet de stocker sous forme de caractères et de 
corriger en mémoire centrale un programme source écrit en MSP. Durant 
toute l'édition ce programme est visualisé sur l’écran vidéo du TRS 80. 


La philosphie de cet éditeur est la suivante : Le texte source est 
affiché en permanence sur l'écran ainsi qu’un curseur (qui est représenté 
par un petit rectangle blanc clignotant). Toute modification du texte 
source ou tout mouvement du curseur (ordonné au moyen de commandes entrées 
sur le clavier) est immédiatement visualisé ce qui permet de contrôler 
PUESSCTEn toutes les transformat ions effectuées au texte source. 


Dans La version minimum de l'éditeur, il est TST de conserver une 
page entière (i.e. 16 Lignes de 64 caractères) en mémoire. Cette page 
qui ne peut être modifiée que par l'éditeur peut être relue par et 
fait office de mémoire "bloc-note". 


Il est notoire qu’une fois avoir utilisé ce type d'éditeur il devient 
difficile de travailler sans nervosité avec les éditeurs dits "aveugles" 
qui, affichant toujours les commandes et non les modifications réellement 
apportées au texte, demande un gros effort de concentration qu’il est 
difficile de soutenir longtemps. 


Îl est recommandé d’experimenter le maniement de cet éditeur au moyen 
d’une petite fonction de test car il est indispensable de voir l’action 
des commandes pour les comprendre et les utiliser pleinement. 


L 


L’éditeur possède différents mode de fonctionnement;  i.e.. qu’ un 
4 La ` 
caractère normal entré au clavier peut : 


- remplacer le caractère qui se trouvait à l’emplacement du curseur. 
C’est le mode remplacement. 


- être ajouté à L’emplacement du curseur après avoir décalé tous les 
autres caracteres de la ligne. C'est le mode insertion. 


- être traduit en caractère graphique (par ajout de la valeur #80) et 
remplacer le caractère qui se trouvait à l’emplacement du curseur. 
C’est le mode remplacement graphique. 


À tout moment la position courante du curseur est visualisée par un 
petit carré blanc clignotant (s’il se trouve sur un caractère) ou fixe 
(s’il se trouve sur un espace). 
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6.1 LES CARACTERES DE COMMANDES 


Un certain nombre de caractères sont interprétés par l’éditeur comme des 
caractères de commande (i.e. qu’ils ne sont pas inclus dans le texte 
source mais servent à commander des actions spécifiques de l’éditeur). 


Ces caractères de commandes sont : o 

- certains caractères spéciaux se trouvant sur le clavier (comme les 
flèches ef, la touche ENTER, la touche CLEAR ou la touche BREAK), 

- tous les caractères SHIFT (i.e. les caractères normaux entrés avec la 
touche SHIFT enfoncée) 


Ces caractéres de commande sont regroupés en différentes classes : 

- les commandes qui déplacent le curseur. 

- les commandes qui demandent de rechercher une position dans la page. 
- les commandes qui détruisent des caractères existants dans la page. 
- les commandes qui permettent de changer de mode 

- et un certain nombre de commandes de service de l*éditeur. 


6.1.1 Commandes de déplacement du curseur 


Ces commandes n’altèrent jamais le contenu de l’écran mais modifient la 
position du curseur, 


<- déplace le curseur d’une position à gauche 

> déplace le curseur d’une position à droite 

q (flèche en haut) déplace le curseur d’une ligne vers le haut 
v (flèche en bas) déplace le curseur d’une ligne vers le bas 


s 


SHIFT/> déplace le curseur á la fin de la ligne courante 
ENTER déplace le curseur au début de la ligne suivante 
SHIFT/H déplace le curseur au début de la première ligne de l’écran 


SHIFT/Z déplace le curseur sur le premier caractère libre en fin de page 


6.1.2 Commande de recherche de position 


Ces commandes ne modifient jamais le contenu de l’écran mais modifient la. 
position du curseur. Si la recherche réussie, le curseur est déplacé 
sinon le curseur reste inchangé. 


SHIFT/S puis <x> (<x> étant un caractère quelconque). Positionne le 
curseur sur le prochain caractère <x> rencontré dans la page. La 
recherche du caractere se fait a partir de la position courante du 
curseur jusqu’à la fin de la page, c’est donc une recherche en avant. 
S”il.n'y a pas le caractère demandé le curseur ne bouge pas. 


SHIFT/B puis <x> («x> étant un caractère quelconque).  Positionne le 
= curseur sur le caractère <x> précédent de la page. La recherche du 
caractère se fait à partir de la position courante du curseur 
jusqu’au début de la page, c’est donc une recherche en arrière. Si 

le caractère demandé n’existe pas, le curseur ne bouge pas. 
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SHIFT/M si le curseur pointe sur une parenthèse ouvrante se positionne sur 
la parenthèse fermante correspondante. Si le curseur ne pointe pas 
directement sur une parenthèse  ouvrante éditeur effectue 
automatiquement l’enchainement SHIFT/S (€ SHIFT/M. Cette commande 
permet de vérifier aisément un parenthésage 


SHIFT/A permet de répéter La dernière commande de recherche de type 
SHIFT/B, SHIFT/S ou SHIFT/M. Cette commande évite la frappe du 


caractère à chercher en cas de recherches multiples. 


6.1.3 Commandes de destruction de caractères existant 


SHIFT/D détruit le caractère pointé par le curseur. 
SHIFT/e correspond à L’enchaînemment : e puis SHIFT/D 


SHIFT/K détruit tous les caractères de la ligne courante à partir du 
pointeur courant. 


CLEAR efface tout l’écran et positionne le curseur sur le premier 
caractère de la première ligne. 


6.1.4 Commandes de manipulation de Lignes 


SHIFT/V (SHIFT flèche en bas) si le curseur se trouve en début de Ligne 
permet de descendre d’une position toutes les lignes qui se trouvent 
sous le curseur. La dernière ligne de la page est perdue. . 


SHIFT/1 (SHIFT flèche en haut) permet de remonter d’un position toutes Les 
Lignes qu se trouvent sous la curseur. La première ligne qui se 
trouvait sous le curseur est perdue et une nouvelle Ligne vide se 
forme à La fin de la page. Cette commande défait donc la commande 
précédente. 


6.1.5 Commandes de changement de mode 


SHIFT/1 passe en mode insertion. I.e. que tous les caractères normaux 
suivants seront insérés dans la ligne courante à partir de la 
position du curseur en déplaçant les caractères qui s’y trouvaient 
dé ja. Ce mode reste jusqu’à l'apparition d’un caractère de commande 
de n°’ importe quel type. 


SHIFT/N passe en mode remplacement (qui est le mode par défaut). Cette 
commande est en général utilisée pour sortir du mode insert ou 
graphique. 


SHIFT/G passe en mode graphique, i.e. que tout caractère entré est 
converti en un équivalent graphique. Tout nouveau caractère de 
commande (par exemple SHIFT/N), fait repasser en mode normal (i.e. 
en mode remplacement). 
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SHIFT/Q puis <x> (<x> étant un caractère quelconque et même un caractère 
de contrôle). Permet de prendre le caractère <x> littéralement i.e. 
qu'il n’est jamais considéré comme caractère de commande. Par 
exemple SHIFT/Q suivi de T fera apparaître sur l’écran le véritable 
caractère flèche en haut. SHIFT/Q est donc . le quote-caractére de 
L’éditeur. | 


6.1.6 Commandes utilisant le cassetophone 


Ces deux commandes permettent de sauver et de restorer le contenu de la 
page sur cassette. 


SHIFT/R efface toute la page et Lit une nouvelle page sur la cassette. 


SHIFT/W permet de sauver toute la page sur cassette. Cette commande ne 
modifie ni l'écran ni la position du curseur. 


6.1.7 Commandes de service 

Elles permettent de sortir de l’éditeur EDITV. 

SHIFT/E sauve tout l’écran dans la mémoire bloc-note et rend Le contrôle 
au TOP-LEVEL de [VLISPI, 


SHIFT/V sauve tout l'écran dans la mémoire bloc-note et rend le contrôle 
au TOP-LEVEL de WLISP] qui doit relire la page éditée. 


BREAK est identique à la commande SHIFT/E. 
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6.2 Appel de EDITU 


(EDITU <n>) LSUBR à 1 argument] 


appelle l'éditeur EDITV. Si Ll argument <n> est égal à 1, la page 
précédement éditée (et qui a été sauvée en mémoire) est re-affichée 
sur l'écran et l’éditeur se place en mode remplacement, l.e. que 
tout caractère qui n'est pas un caractère de commande remplace le 
caractère pointé par le curseur. 

Si l'argument <n> est égal à -1, c’est l’écran de MISP, tel quel, qui 
est chargé dans la page éditeur. Cette nouvelle possibilité permet 
d’entrer quelques lignes sous et en cas d'erreur de copier 
L’écran de dans la mémoire bloc-note pour y faire des 
modifications ou bien de faire apparaître une fonction préalablement 
lue (par exemple au moyen de la fonction GETFN) puis de la rééditer. 


Il existe un macro-caractère standard qui permet  d’appeler 
directement l’éditeur : Le caractère et commercial : $. 


L’appel &1 est identique à (EDITY 1) 
L’appel 8-1 est identique à (EDITY -1) 


Au retour de l'éditeur l'écran est restauré et EDITV retourne 
toujours la valeur T. 


(EDIT <s>) [FEXPRI 


permet d'éditer une fonction préalablement définie sous [VLISP (si <s> 
est un atome Litéral) ou bien la valeur d’une évaluation que lconque 
(si <s> n’est pas un atome litéraD. Cette fonction n'est pas une 
FSUBR mais doit être décrite en NLISP sous forme de FEXPR de la 
manière suivante : 


(DF EDIT (CL) 
y appel de (EDIT at) 
(WINDOW 0) 
(CLEAR #20) 
(LMARGIN 2) 
(RMARGIN 60) 
(STATUS PRINT 41) 


taille max de l’écran 
efface tout 
aeration pour inclure 
les modifications 
pour relire les impressions 


~ve we ep +. ve u$s - 


(TERPRI> lere ligne vide 
(PRINT 
CIF (LITATOM Ll) 
(GETFN 1) la fonction nommée 


(EYAL (CAR 1)))) 
(STATUS PRINT #0) 
(DISPLAY O ? (#20)) 
(EDITY -1)) 


l’expression évaluée 
impression normale 
efface le curseur 

on y VA +... 


ve we us uu. vs 


Si cette fonction existe, il est possibl de redéfinir le 
macro-caractère "", pour le généraliser, de la manière suivante : 


(DMC "&" © 
(LET CL CREAD)) 
(LIST (IF C(NUMBP L) *EDITY *EDIT)> 1))) 
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T< 4 


SHIFT/4 
SHIFT/> 
SHIFT/v 
SHIFT/e 


ENTER 
BREAK 
CLEAR 


SHIFT/A 
SHIFT/B 
SHIFT/C 
SHIFT/D 
SHIFT/E 
SHIET/F 
SHIFT/G 
SHIFT/H 
SHIFT/I 
SHIFT/J 
SHIFT/K 
SHIFT/L 
SHIFT/M 
SHIFT/N 
SHIFT/0 
SHIFT/P 
SHIFT/Q 
SHIFT/R 
SHIFT/S 
SHIFT/T 
SHIFT/U 
SHIFT/V 
SHIFT/N 
SHIFT/X 
SHIFT/Y 
SHIFT/Z 


8. 2 


Récapitulatif des commandes de EDITY 


monte d’une Ligne 
avance d’un caractère 
descend d’une ligne 
recule d’un caractère 


détruit la ligne suivante 

positionnement en fin de la ligne courante 
Libère une nouvelle ligne 

recule et détruit le caractère courant 


change de Ligne 
sort de l'éditeur (identique à SHIFT/E) 
efface tout l’écran 


répète la dernière commande (S/B/M/Q) 
<x> cherche le caractère <x> en arrière 
=== rien --- 

détruit le caractère courant 

sort de l’éditeur 

=-- rien --- 

entre en mode graphique | 
positionnement en haut de la page 
entre en mode insertion 

eri rien ==> 

détruit la fin de la ligne 

=-- rien --- 

cherche la parenthèse fermante 
repasse en mode remplacement 

<-- rien --- 

==> rien ==>, 

<x> quote le caractère suivant <x> 
Lit une nouvelle page sur la K7 

<x> cherche le caractére <x> en avant 
-== rien --- 

--- rien --- 

rappel le | 

sauve la page sur la K7 

=-- rien --- 

=== rien --- 

passe en fin d*écran 
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| Uil - LE PRETTY-PRINT 


Les fonctions standards PRINT et PRIN sont d’ordinaire utilisées pour 
éditer les S-expressions VLISP. Les seules mesures prises pour améliorer 
La..Lisibilité sont -o a a: | | | | | 

- l’insertion d’un espace entre chaque atome ; 

- l'interdiction d'éditer un atome (atome littéral, nombre ou 
pseudo-chaîne de caractères) sur deux Lignes. 


Ces mesures sont nettement insuffisantes pour éditer vos programmes. Les 
fonctions du Pretty-Print vont les éditer d’une manière beaucoup plus 
lisible en faisant resortir, au moyen de renfoncements gauches et de sauts 
de Lignes ad hoc, la structure de contrôle de vos fonctions. 


Pour améliorer la lisibilité, tous les appels de la fonction QUOTE sont 


transcrits en utilisant le macro-caractéere ? . 


Les fonctions qui vont être décrites se trouvent dans un fichier disque 
dont le nom est : 
"PRETTY.YLI " sous système ISIS 
— "PRETTY/VLI" sous système TRSDOS 
- "PRETTY.YLI" sous système CP/M 


Ce fichier doit être chargé avant utilisation de ces fonctions au moyen de 
appel : m | | 


(INPUT nom-du-fichier) 
Une autre possibilité consiste à définir sous forme de fonctions AUTOLOAD 
Les fonctions du PRETTY-PRINT, au moyen des formes 

(AUTOLOAD "PRETTY.VLI" PRETTY) 

(AUTOLOAD "PRETTY.VYLI" PRETTYF) 


(AUTOLOAD "PRETTY.YLI" SAVEF) 
dans le fichier initial. 


7.1 Les fonctions du PRETTY-PRINT 
(PPRINT <s>) FEXPR 


pretty-print l’expression <s> dans le flux de sortie courant. PPRINT 
retourne <s> en valeur. o 


(PRETTY <at>) FEXPR 


<at> doit être le nom d’un atome qui possède une définition de 
fonction. PRETTY va éditer cette fonction dans le flux de sortie 
courant et retourner <at> en valeur. 
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(PREDIT <at>) FEXPR 


=- <at> doit être le nom d’un atome qui possède une 


fonction. PREDIT permet d'éditer le texte de cette fonction avec 
éditeur cablé EDITY. Cette fonction n'est utilisable 


systèmes possédant ce type d’éditeur cablé. 


‘7,2 Les formats du PRETTY-PRINT 
Le PRETTY-PRINT utilise les formats suivants : 


Format 1 : de type PROGN 
Format 2 : de type LAMBDA 
Format 3 : de type DE 
Format 4 : de type COND 
Format 5 : de type SELECTQ 
Format 6 : de type SETQ 


Ces différent formats sont rangés dans le P-type des atomes Littéraux. 
L’accès à ce P-type est réalisé au moyen de la fonction standard PTYPE. 
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7.3 Le texte du PRETTY-PRINT 


Voici le texte complet de ces fonctions du PRETTY-PRINT : 


PRETTY - PRINT 


Paragrapheur  VLISP 8 . 2 
€ Taille = 450 doublets ) 


Jérôme CHAILLOUX 


ee 6 43: 0 
do pb 21 0% 


Département d’Informatique 

Université de Paris VIII - Vincennes 
Route de la Tourelle 75571 Paris Cédex 12 
Tél : 374 12 50 poste 299 


La R. C.A. M. 
31 Rue St Merri 75004 Paris 
Tél : 277 12 33 poste 48-48 


A E un COUR OOO OEA id » 


V9 09 vo YO ve VA Vo LU. V9: VD vV 
CN 20 99 49 we Se ve ve. Le ve 


ve 
+ 


(STATUS TOPLEVEL 2) ; Silence. 


¿2=--- Fonctions internes 


(DE P-P (L) 
: Ae ORAN L'expression L 


((NULL 1t). (PRINCH "<") (PRINCH ")")) 
(CATOM 1) (PRIN 0D) | 
(CAND (EQ (CAR L) QUOTE) (NULL (CDDR L))) 
-© CPRINCH 1?) 
(P-P (CADR L))) 
(T (PRINCH "(") 
(P-P (CAR DL). 
(SELECTA (PTYPE (NEXTL L)) 
(1 ; Format PROGN 
- (P-PROGN) ) 
(2 ; Format WHILE 
(P-P1) (P-PROGN T)) 
(3 ; Format DEF 
(P-P1) (P-P1) (P-PROGN T)) 
(4 ; Format COND 
(P-COND) > 
(5 y Format SELECTO 
(P-P1) (P-COND) > 
(6 ; Format SETQ multiple 
(143) 


(WHILE L (P-P1) (P-P1) (IF L CTERPRID)) 
(T-3)) 
( ; Format standard 
143) 
(WHILE CLISTP i) (P-P1)) 
(T-3))) 
(AND 1 CPRINCH " "> CPRINCH "."> CPRINCH " "> (PRIN D) 
(PRINCH ">)")))) 
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(DE P-P1 © 
; Pretty Print un élément de la liste L 
s mais pas le ler ! 
(PRINCH " ") 
(P-P CNEXTL L))) 


(DE P- du (2) 
s Pretty Print le PROGN L si ?=T il indente toujours 
de AND” (NULL (CDRA 133 (NULL ?)) 
s 1 seul argument 
(P-P1) 
s plusieurs arguments 
(T+3) 
(WHILE (LISTP L) 
(TERPRI) 
2 (P-P (NEXTL DD) 
(T-3))) 


(DE P-COND O 
s Pretty Print le COND Ll 
(T+3) 
(WHILE CLISTP 1) 
+ CTERPRI) 
(PRINCH "<(") 
(LET CL (NEXTL D) 
© (P-P (NEXTL LD) 
CIF L CP-PROGN) )) 
~ (PRINCH ")")) 
(T-3)) 


(DE T+3 O 
; effectue un renfoncement droit 
(LMARGIN (+ (LMARGIN) 3))) 


(DE T-3 © 
e enlève un renfoncement droit 
(LMARGIN (- (LMARGIN) 3))) 


“kkkkk Fonctions standard du PRETTY PRINT 


(DE PPRINT (s) 
; Pretty Print l’expression s 
(STATUS PRINT #7) 
(LMARGIN 0) 

(PB S) 

(TERPRI) 
(STATUS PRINT #0) 
s) 


(DF PRETTY (CL 
s Pretty Print la fonction (CAR 1) 
s ex: (PRETTY PRETTY) 
(PPRINT CGETFN (CAR 03) 
(CAR 10) 
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(DF PREDIT Cl) 
s Edite la fonction (CAR L) pretty-printée 
s est équivalent à (EDIT 1) 
CHINDON 0) 
(CLEAR #20) 
(LMARGIN 2) 
(RMARGIN 60) 
(STATUS PRINT #7) 
(TERPRI) 
(PPRINT CIF CLITATOM (CAR 19) (GETFN (CAR 1) (EVAL (CAR L)))) 
(LMARGIN 0) o 
(STATUS PRINT 0) 
(DISPLAY (O ? (#20)) 
(EDITY -1)) 


————— Fonction de-sauvetage du fichier 


(DE SAVEF-PRETTY O 
; Pour tout sauver sur disquette 
(SAVEF "PRETTY/SAV" 
(STATUS TOPLEVEL 2) 
P-P P-P1 P-PROGN P-COND T+3 T-3 
PPRINT PRETTY PREDIT SAVEF-PRETTY 
(PROGN (STATUS TOPLEVEL 0) “J'ai charge PRETTY/YLI"))) 


; ----—- Epilogue standard 


(PROGN 
(STATUS TOPLEVEL 0) 
"J'ai charge PRETTY/VLI") 
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VIII - La PROGRAMMATION EN 8 


Ce chapitre fourni un certain nombre de programmes de démonstration écrits 


en MISPA 8.2. 


8.1 Le fichier initial du système WLISP] TRS 


VLISP 7 INI 


Fichier initial VLISP 8. 2 
( Taille < 300 doublets ) 


Jéróme CHAILLOUX 


V9 vo ve. ve- ve 
40 +0 Vo ve 


+ 


Département d’Informatique 

Université de Paris VIII - Vincennes 

oo Route de la Tourelle 75571 Paris Cédex 12 .. 
Tél : 374 12 50 poste 298 


I.R.C.A.M. 
31 Rue St Merri 75004 Paris 
Tél : 277 12 33 poste 48-48 


9 49 vo 10-00 ve ve we vo ve 
s $9 140 6 69 Ve VS 40 ve vo ve 


e. 
+ 


(STATUS TOPLEVEL 2) ; Silence. 


$=---- la MACRO LET 
(DM LET (L) 
(RPLACB 1 
(COND 


((NULL (CADR L 3) 
(CONS (CONS LAMBDA (CONS (O) (CDDR 1 ))))) 
(CATOM (CAADR L )) 
(CONS (CONS LAMBDA (CONS (LIST (CAADR L >) (CDDR L ))) 
(CDADR 1 ))) 
(T (CONS (CONS LAMBDA (CONS (MAPCAR ”CAR (CADR L 3) (CDDR l ))) 
Lom AMAPCAR ?CADR. £CADR L 332333) 


;----- . Appel de l’editeur interne 


(DF EDIT (1) | 
+: édite une fonction ou une expression 
s ex : (EDIT FOO) sans quote ! 
(WINDOW 0) 
(CLEAR #20) . 
(LMARGIN 2) 
(RMARGIN 60) 
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(STATUS PRINT #7) 

(PRINT 

© CIF (LITATOM (CAR L)) 
(GETFN (CAR L) 
(EVAL (CAR 133) 

(STATUS PRINT #0) 

(DISPLAY O ° (420)) 

(EDITY -1)) 


¿== Sauvetage sur disque de fonctions 


(DF SAYEF (L) 
+ Sauvegarde de fonctions sur disque 
+ ex d'appel : 
s (SAVEF file atl ... at) sans quote! 
(OUTPUT (NEXTL 010) 
(STATUS PRINT #7) 
(LMARGIN 0) 
(WHILE L 
(PRINT 
(IF (LITATOM (CAR L)) 
- (GETFN (NEXTL 13) 
(NEXTL 1))) 
(TERPRI) ) 
(STATUS PRINT #0) 
(OUTPUT) ) 


(DMC "8" © 


s le macro-caractére correspondant 
o (LET (1 (READ) ) 


(LIST (IF (NUMBP L) ’EDITV *EDIT) L))) 


ooo les fonctions qui manquent 


(DF MCONS (1) 
(CONS (EVAL (CAR L)) 
(EVAL CIF (NULL C(CDDR DL) 
(CADR L) 
(LIST *MCONS (CDDR L)))))) 


(DE MAPCAR (Cf -L) 
CIF (NULL -1) 


O 
(CONS (-f (CAR -1)) (MAPCAR -f (CDR -1)))))) 


(DE MAPC C-f -1) 
e - 1) 


(-f (CAR -L)) 
(MAPC -f (CDR -1))))) 


————- LIBRARY et AUTOLOAD 


(DF LIBRARY (L) 
+ chargement en douceur d’un fichier disque 
CIFN CENPUT (CAR 0) 
(EXIT (LIST (CAR L) "n'existe pas.")) 
(ESCAPE EOF (WHILE T (EVAL (CREAD)))) 
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(INPUT) 
(CAR L))) 


(DF AUTOLOAD (L) 


+ définition de fonction autoload 
s (AUTOLOAD fichier ati ... atN) 
(MAPC (LAMBDA (a) 

(EVAL 


(LIST ”DM a * CL) 
(LIST *FTYPE (LIST QUOTE a) 0) 
(LIST *LIBRARY (CAR 0D) *D)) 
(CDR D). 


(AUTOLOAD "ELEPH/VLI" VOIR) 

(AUTOLOAD "HANOI/VLI" HANOI> 
(AUTOLOAD "PRETTY/VLI" PRETTY PREDIT) 
CAUTOLOAD "TRACE/VLI" TRACE UNTRACE) 
(AUTOLOAD "LOGO/YLI" ER) 


————— Visualisation d’un fichier disque 


(DE TYPE (l) 
(OR (INPUT 1) (EXIT (LIST L "n'existe pas."))) 
(ESCAPE EOF 
(WHILE T CIF (TYS) (EOF) (PRINCH (READCH))))) 
is 
L 


go C’est toujours utile 


(DE FOO (1) CIF (NULL (CDR 1)) L (FOO (CDR L)))) 


go Pour le sauvetage du fichier 


(DE SAVEF-YLISP O 
; Sauvetage de tout le fichier 
(SAVEF "VLISP/SAY" 
(STATUS TOPLEVEL 2) 
LET EDIT 
(DMC "8" O 
© (LET (CL CREAD)) 
(LIST CIF CNUMBP t) *EDITY EDIT) L)) 
SAVEF MCONS MAPCAR MAPC 
LIBRARY AUTOLOAD 
(AUTOLOAD "ELEPH/VLI'" VOIR) 
(AUTOLOAD "HANOI/VLI" HANOI) p 
(AUTOLOAD "PRETTY/VLI" PRETTY PREDIT) 
(AUTOLOAD "TRACE/VLI" TRACE UNTRACE) 
(AUTOLOAD "LOGO/VLI" ER) 
TYPE FOO SAVEF-VLISP 
(PROGN (STATUS TOPLEVEL 0) 
(LMARGIN 0) CRMARGIN 60) "J'ai charge VLISP/INI"))) 


————— Final de l’initialisation 
(PROGN 


(STATUS TOPLEVEL 0) 
(LMARGIN 0) 
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(RMARGIN 60) 
"J'ai charge VLISP/INI") 


554 
8.2 Les fonctions de TRACE 


TRACE . VLS 


traceur  VLISP 8 . 2 
( Taille = 450 doublets ) 


Den Un Où D CN D NS D QE Qu © LU SUR CN GUN GUN SN A E E Qu CU DURS EA E ON NS US US (NS E OUPS UNS E E Get) AU VUS E QUE E QUE GUN GR M CU US dent Gui AA. (un cs dune Sem eme À 


Jérôme CHAILLOUX 


V9 ue vo 0: Ye 


Département d’Informatique ; 
Université de Paris VIII - Vincennes ; 
Route de la Tourelle 75571 Paris Cédex 12 : 
Tél : 374 12 50 poste 299 s 


ON 40 40 ve ve ve ve 


; I.R.C.A.M. | 
; 31 Rue St Merri 75004 Paris 
; Tél : 277 12 33 poste 48-48 


(STATUS TOPLEVEL 2) ; Silence. 
5----- Fonctions de trace (elles sont AUTOLOAD) 


(DF TRACE (D 
s trace la liste de fonctions L 
; ces fonctions ne doivent pas contenir d’appels 
+ de fonctions SELF ou EXIT 
(MAPC (LAMBDA Cf) 
(LET (fval (VAL f)) 
(IF CATOM fval) 
(PRINT "C’est quoi 2" f) 
(PUT f fval ? TRACE) 
(FVAL f 
(LIST (CAR fval) 
(LIST *PRINT 
(LIST QUOTE f) 
(LIST QUOTE *?--->) 
(LIST CIF (ATOM (CAR fval)) *EVAL *EVLIS) 
| (LIST QUOTE (CAR fval)))) 
(LIST ?’LET 
(LIST ? L (CONS *PROGN (CDR fval)) 
(LIST *PRINT 
(LIST QUOTE f) 
(LIST QUOTE *? <---) 
”1)))))))) 
lL) 
L) 
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(DF UNTRACE CL | 
+: enleve la trace de la liste des fonctions L 
(MAPC (LAMBDA (Cf) 
(LET (fval (GET f ?’TRACE)) 
(IF CATOM fvab 
(PRINT f "n'etait pas tracee ...") 
(FVAL f fval) 
j (REMPROP f ? TRACE) ))) 
L 
L) 


e =- Pour sauver tout le fichier 


(DE SAVEF-TRACE 0 
s sauve tout le fichier 
(SAVEF "TRACE/SAV" 
(STATUS TOPLEVEL 2) 
TRACE UNTRACE SAVEF-TRACE 
(PROGN (STATUS TOPLEVEL 0) "J’ai charge TRACE/VLI"))) 


$ =-=--- Epilogue standard 


(PROGN 
(STATUS TOPLEVEL 0) 
"J'ai charge TRACE/VLI") 


8.3 Les tours de Hanoi animées 


Ce programme est une version animée du très célébre problème des tours de 
Hanoi. Il est conçu pour fonctionner sur un système TRS80 et utilise les 
fonctions pseudo-graphiques de ce système. Voici Le texte de ce 
programme : 


HANOI . VLB 


Les Tours de HANOI animées en VLISP 8. 2 
( Taille 800 doublets > 


Jérôme CHAILLOUX 


vs ve ve ve 
ve ve ve vo 


Département d’Informatique 

Université de Paris VIII - Vincennes 
Route de la Tourelle 75571 Paris Cédex 12 
Tél : 374 12 50 poste 299 


I.R.C.A. M. 
31 Rue St Merri 75004 Paris 
Tél : 277 12 33 poste 48-48 


FAS due i p e ia DEN n A A E AUS CU, A, US. d y s s GUN CUS TU A UA A A AN O s E s GUN A, h VEN a mt AUS SN OUR NUS SEEN E S A SU, A A A oii dll a S S a. 


ST ve WO Vs ve ve Ve VE ve ve ve 
Jo ve V9 VS ve ve ve ve ei ve ~v 


+e 
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(STATUS TOPLEVEL 2) ; silence. 
s dessin des aiguilles et des gregues 
(DE init-disque O 

(SETQ 


l-disque *C. e | | 
(#20 #20 #20 #20 #20 #20 #20 #20 #20 AFF 
#20 #20 #20 #20 #20 #20 #20 #20 #20) 
(#20 #20 #20 #20 #20 #20 #20 #20 HFO #FF 
HFO #20 #20 #20 #20 #20 #20 #20 #20) 
(#20 #20 #20 #20 #20 #20 #20 HFO HFO AFF 
HFO HFO #20 #20 #20 #20 #20 #20 #20) 
(#20 #20 #20 #20 #20 #20 HFO HFO #F0 AFF 
#FO HFO HFO #20 #20 #20 #20 #20 #20) 
(#20 #20 #20 #20 #20 HFO HFO HFO HFO AFF 
HFO HFO HFO #FO #20 #20 #20 #20 #20) 
(#20 #20 #20 #20 #FO HFO HFO HFO HFO #FF 
#FO #FO HFO HFO #FO #20 #20 #20 #20) 
(#20 #20 #20 HFO HFO HFO HFO HFO HFO #FF 
HFO #FO HFO HFO HFO HFO #20 #20 #20) 
(#20 #20 HFO HFO HFO HFO HFO HFO HFO AFF 
HFO HFO HFO HFO HFO HFO HFO #20 #20) 
(#20 #FO HFO #FO #FO HFO HFO HFO HFO HFF 
HFO HFO HFO HFO HFO HFO HFO HFO #20) 
(HFO HFO HFO HFO #FO HFO HFO HFO #FO AFF 
HFO HFO HFO HFO #FO HFO HFO HFO HFO) 
(HFF #FF #FF #FF AFF AFF #FF #FF AFF HFF 
HEF AFF #FF FF #FF REF AFF #FF #FF)))) 


————- Les fonctions de mouvements de disques 


(DE monte (n pos nb 3; d e) 
; monte le disque de numero n en pos de nb places 
(SETQ pos (+ pos (x 64 (+ nb 3))) 
d (CNTH (1+ n) l-disque) 
e (CNTH 1 l-disque)) 
(WHILE (>= nb 0) 
(DISPLAY (- pos 64) d) 
(DISPLAY pos e) 
(SETA pos (- pos 64) nb (La nb)))) 


(DE descend (n pos nb ;; d e) 
; descend le disque de numero n en pos dè nb places 
(SETQ pos (+ pos 128) d (CNTH (1+ n) l-disque) e (CNTH 1 l-disque)) 
(WHILE (> nb 0) 
(DISPLAY (+ pos 64) d) 
(DISPLAY pos e) 
(SETQ pos (+ pos 64) nb (1- nb)))) 


(DE avance (n dep arr ;; pos nb d e) 
+ avance le disque de numero N de DEP vers ARR 
. (SETQ pos (+ dep 128) 
nb (- arr dep) 
d (CNTH (1+ n) l-disque) 
e (CNTH 1 L-disque)) 
(IF (> nb) 
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(WHILE (> nb) 

(DISPLAY pos e) 

(DISPLAY (1+ pos) d) 

(SETA pos (1+ pos) nb (1- nb))) 
(WHILE (<= nb) 

(DISPLAY pos e) 

(DISPLAY (1- pos) d) 

(SETA pos (1- pos) nb (1+ nb))))) 


(DE bouge (n depart arrives) o 
s realise un mouvement 
(monte n (GET depart ’ pos) (- 10 (LENGTH (CVAL depart)))) 
(avance n (GET depart " pos) (GET arrivee *pos)) 
(descend n (GET arrivee *pos) (- 10 (LENGTH (CVAL arrivee)))) 
(SET depart (CDR (CVAL depart))) 
(SET arrivee (CONS n (CVAL arrivee)))) 


(DE affiche CLl pos ;; n) 
; affiche le contenu de toute une aiguille 
(SETA pos (+ pos 768) n 11) 
(WHILE (> n 0) 
(DISPLAY pos (CNTH CIF t (1+ (NEXTL 0) 1) L-disque)) 
(SETQ pos (- pos 64) n (1- n)))) 


(DE Hanoi-roule (n depart arrivee intermediaire) 
s le moteur de HANOI 
(IF (<= n 0) 
| O. 
 (Hanoi- roule (1- n) depart interes arrivee) 
(bouge n depart arrivee) 
… (Hanpi-route (1- n) intermediaire arrivee depart)))) 


(DE Hanoi (nm). 
s le lanceur de HANOI 
(CLEAR #20) 
(init-disque) 
(DISPLAY 20 "LES TOURS DE HANOI") 
(DISPLAY 980 "Combien de disques ") . 
(SETQ n (READ) 
aiguille-A ? (9 10) 
aiguille-B ? (9 10) 
aiguille-C ” (9 10)) 
(PUT ’aiguille-A 0 *pos) 
(PUT *aiguille-B 21 *pos) 
(PUT ’aiguille-C 42 *pos) 
CIF (OR (< n 3) (> n 8)) (Hanoi?) 
(LET (n mM CIF (= n 0) O (NEUL aiguille-A n) (SELF (1- n)))) 
(affiche (REVERSE aiguille-A) (GET ’aiguille-A ’pos)) 
(affiche (REVERSE aiguille-B) (GET *aiguille-B *pos)) 
(affiche (REVERSE aiguille-C) (GET ’aiguille-C *pos)) 
(Hanoi-roule n ’aiguille-A ’aiguille-B ’aiguille-C)) 


(DE savef-Hanoi O 
+: pour sauver tout ce fichier 
(SAVER "HANOI /SAV" 
(STATUS TOPLEVEL 2) 


init-disque monte descend avance bouge 
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Hanoi-roule affiche Hanoi savef-Hanoi 
(PROGN 
.. (STATUS TOPLEVEL 0) 
" (HANOI) pour lancer."))) 


(PROGN 
(STATUS TOPLEVEL 0) 
"(HANO1> pour lancer.") 


c.X£ 
55€ 


8.4 Un compilateur UCMC 2 


Voici maintenant un compilateur [VLISP] pour la machine VCMC2. Voici le 
texte de ce compilateur : 


COMPIL . VLI 


Compilateur YCMC2 en YLISP 8 . 2 
( Taille = 200 doublets ) 


+0 NN: ve «O 
e 29-409 ve - 


Jerome CHAILLOUX 


+ 


; Departement d’ Informatique 

; Universite de Paris 8 - Vincennes 

: Route de la Tourelle 75571 Paris Cedex 12 
; Tel : 374 12 50 poste 299 

9 

> 


I.R.C.A.M. 
= 31 Rue St Merri 75004 Paris 
Tel : 277 12 33 poste 48-48 


O o A PU A A A E FU E E E A mie SP A a mu ve A A a a een con e cms eus mms mm AÈ 


69 vo +0 Ve ve we ve Mr vo vs 


< 
+ 


(STATUS TOPLEVEL 2) ; Silence durant la lecture 


yo ———— Les macros caracteres de lecture de liste 


(DMC "[" CL x) (UNTIL (EQ (SETQ x CREAD)) 1%) (NEWL t x)) (FREVERSE L)) 
(DMC "I" O “1") 


AS fonction de compilation principale 


(DE COMPILE (L ;; lap) 
L: est la forme à compi ler 
lap : contiendra la liste des instructions 


1) génération du code 


(COMPEXP 1) 
(SETQ lap (REVERSE lap) 


vo vo WO vo ve 


9 
$ 2) impression du résultat obtenu 
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(TERPRI) 
(MAPC (LAMBDA (x) (PRINCODE x)) lap) 
(TERPRI) 


N 3) et voila 


$ 
OK) 
$ —-—- Phase de macro-génération du code brut 


(DE CODE 4 


. ajoute à lap la Liste d’ instructions Ll 
(MAPC (LAMBDA CL) (NEWL lap LD) D) 


(DE COMPEXP (L) 
s compite l’expression lL 
(COND 
( (NULL 1) 
s la constante NIL 
(CODE ? (MOVE NIL A1))) 
((NUMBP L) 
5 les constantes numériques 
(CODE C’MOVE IQUOTE 11 ?A11)) 
(CATOM 1) 
s les symboles atomiques 
(CODE [L’CVAL [QUOTE L *A11)) 
((EQ (CAR 1) QUOTE) 
: La fonction QUOT 
(CODE L’ MOVE [QUOTE (CADR LI *A11)) 
(XEQ (CAR L) *DE) 
s la fonction de définition DE 
(CODE (CADR 1) 
[T MOVE [QUOTE [XCADR t) . (CADDR 1)11 *A4 * [CALL (CBIND)11) 
(FTYPE (CADR 1) (SELECTO (LENGTH (CADDR L)) 
(0 ’OSUBR) (1 ’ISUBR) (2 *2SUBR> (T *NSUBR))) 
(COMPROGN (CDDDR OD) | 
(CODE ? (NOP O O [RETURN] ))) 
((EQ (CAR L) *IP) 
; la fonction conditionnelle IF 
(LET (Ceti CGENSYM)) (et2 (GENSYM))) 
(COMPEXP (CADR L)) 
(CODE C’TNIL *A1 O [LIST JUMP [et1111) 
(COMPEXP (CADDR 0D) 
(CODE [*NOP O O PLIST * JUMP let211] et1) 
(COMPROGN (CDDDR 1)) 
(CODE et2))) 
((EQ (CAR t) *PROGN) 
s le séquenceur PROGN 
(COMPROGN (CDR L))) 
(T (SELECTO (FTYPE (CAR LD) 
s les fonctions standards de type xSUBR - 
(OSUBR 
(CODE L’NOP O O PLIST *CALL [(CAR D111)) 
(1SUBR 
(COMPEXP (CADR 0D) | 
(CODE L’NOP O O PLIST *CALL [CCAR 0111) 
(2SUBR 
(COMPEXP (CADR L)) 
(CODE ? (MOVE A1 TST)) 
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(COMPEXP (CADDR DL) 
(CODE ° (MOVE Al A2) 
-> P MOYE *TST *A1 [*LIST *CALL [(CAR 1)111)) 
(3SUBR 
(COMPEXP (CADR 0D) 
(CODE * (MOVE Al TST)) 
(COMPEXP (CADDR 1)) 
(CODE °’ (MOVE AT TST)) 
(COMPEXP (CADDDR L)) 
(CODE ” (MOVE Al A3) °’ (MOVE TST A2) 
[MOYE *TST *A1 PLIST *CALL I[(CAR DI11)) 
(NSUBR 
(LET C(narg 0) (larg (CDR L))) 
(COMPEXP (CAR Larg)) 
(IF (NULL (CDR larg)) 
(PROGN 
(IF (ZEROP narg). 
(CODE P? XCONS O 'A1 PLIST *CALL [CAR 1111) 
(CODE * (XCONS NIL A1)) 
(REPEAT (SUB1 narg) (CODE ? (CONS TST AT))) 
(CODE [*CONS *TST *A1 [*LIST *CALL [CCAR 1011133) 
(CODE ? (MOVE A1 TST)) 
(SELF (ADD1 narg) (CDR larg))))) 
(T (CODE [*MOVE [QUOTE 1] *A1 > [CALE (EVAL)11)))))) 


(DE COMPROGN CL) 
s compile le progn L 
(IF (NULL L) 
(CODE ” (MOVE NIL A1)) 
(LET (LD 
(IF (NULL L) 


O 
= CCOMPEXP (CAR L)) 
(SELF (CDR 1)33)3)) 


¿---- Fonction d’ impression d’une instruction 


(DE PRINTCODE (s) 
(IF (ATOM 1) (EXIT (PRINT s))) 
(TTAB 10) 
(PRIN (NEXTL s)) 
(IF (NULL s) (EXIT (TERPRI)) (TTAB 16)) 
(IF (NEQ (CAAR s) LIST) (PRIN (NEXTL s))) 
(IF (NULL s) (EXIT (TERPRI)) (PRIN ",")) 
(IF (NEQ (CAAR s) ’LIST) (PRIN (NEXTL s))) 
(IF (NULL s) (EXIT (TERPRI)) (PRIN ",")) 
(PRIN "I" (CADR s)) 
(IF (CDDR s) (PRIN (CADDR s))) 


(PRINT "1%)) 
yo Exemples de compilation 
(COMPIL ? 


(DE LAST (L) 
(IF (NULL (CDR 1)) 
(CAR D 
(LAST (CDR 1))))) 
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GEVAL- +... . 0.2.2... à 46 
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CAR e | EE ayar S 
Caractères de contróle A 19 
Caractères graphiques +. . . . . . . 100, 113 
Caractères minuscules . . » . > o . 79 
Cassetophone . . o... es . . . . . 98 


CATTENAT annette . . . o. ooo s... 5 
CDR a E E 
CHAILLOUX jérône i e 2 si 
Clauses . . S m a se à OT 
CLEAR .. nn à + o 
Club ARRAKIS As 5 


Code interne des caractères oo à 67 
COLERE christian . as s>s o o. oo. D 
Collision de variable . . . >» . . . 67 
COLORIX . sas ooo»... + . 103 
Commentaires . . . s +. è èe >s eè.. > 80 
COSLADO guy +... e s ss esso so 5 
CP/M . . . . . i ess J3 
Curseur de l’ eo a a esa il. 


Débordement numér ique sn. ass 66, 71 
Définition de fonctions . . ». . . . 24 
Délimiteur de chaîne . . . o. . > . 83 
Délimiteur de commentaires . . . . . 83 
DELETE . . . Assad 
DEVILLERS yves E de = 
DISQUE s i s sre ESA. s.s B 


Editeur de Ligne . s e ss .. ee. 79 


EDEPE sss seres sewed yd Us 
ENTER esses eo es + « o o 79, 114 
Entrées/sorties +. . . . . . . as Y 
Entrées/sorties du micro-processeur 102 
OF ss o. > è è + 9% 94 
Erreurs de lecture . . . . . s e. > 77 
Evaluation des atomes . . . . . . . 19 
EXPR s scaposa rangan  ” 
Extension de fichier . .. ... o... 93 
FESIVPE w a s d w u staa anasa 1 
F-VAL Se à ne se die 17 
Fenêtrage oo. sess soso 101 
CA AAA e 
Fichier d'entrée... . . . +. . s + 94 


Fichier de sortie . . . . . . .... 9 
Fichier disque . . . . . . . . . . . 93 
Fichier initial . . . .. o. o... 96 
Fichiers s e à su à 6 à à à + à + 93 


Fin de fichier . . . . . . nas YA 
Flux... EEE à à .. 93 
Flux d'entrée VA — 97 
Flux de sortie . . .». aas eass... + 95 
Fonction AUTOLOAD . . .. . . . e.. J6 
Fonctions . . . . e s. èe. ns. 20 


Fonctions Standards Laa asa a 23 
Forme (évaluable) . . . . . o... 20 
FSUBR ss ur a w a same + 21 


Garbage-collecting . +. . . . . . . . 108 
GOOSSENS daniel . . . . s s a. . . 5, 47 
GREUSSAY patrick... o... . o. . . 5, 25 


Hash-coding +. . e es es e. . . . 17 
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HERBUVEAUX gérard . s ess soso 5 
Holding e.. ss ..on.cs à à . 87 
HUET gérard è s . . . . . ... 9 
HUITRIC hervé à » à à à «à à « à ao 3, 14 
HULLOT jean-marie . . . esse so D 
IZO mapped » ss sess see oo 102 
Impression des listes circulaires . 90 
Informatique musicale . . . . . . . 4 
INTEL 8080 x s y a a ranr rsp 4 
Intelligence artificielle . . . . . 4 
Inter lLignage +. . +. . s e ss es sœ 87 
Interruption d' impression + à 87 
IRCAM. dd ka a D se on ie à à = 5 
ISIS LOU ossssssssee 7, 93 
KOIT- -Jean me 3 y A ARA 3 
LABEL (fonctions) . . . . . . . e>. 34 
Lambda-expression +. e . s e e e eo 22 
LUP a a ss 111 
LÉLERF YY8S. è e s esso strud =) 
Lecture d’une ligne . . . . >s eœ 77 
Lecture des s-expressions . . . . + 77 
Lecture standard . . . e o. a è è à 79 
Library s s essea TEPPET 96 
Lighe s s è w ea TE es N 
Line-feed . sss ess sosoo 87 
LISP/LOGD , è 4. 4 + + o .« 100 
Liste circulaire . . . . . ss so 93 
LISTOS: à à eac à ee à à se d + + + 18 
MACRO fonctions . . . es» >s > e> 23 
Macro-caractère , . ». . e >s >>» >» ŜI 
Marge droite d’ impression as. 89 
Marge gauche d’ impression . . +. » . 89 
MAZEAU jean-paul . . .. oo. oo. D 
MOS INTELLEC 80 . . . . . asas UT 
MDS (32K) . . . e > és ne ee > 7 
MODS (G4K) . à à à s à à à à © osos 7 
Mode AUTOLOAD . . . ass s s>s oo 96 
MOULIN jean-paul . . ssas ss >> D, 8 
MOU à à à à à à ss ne ee 8 
NAHAS monique . . s s e e s» so 5, 14 
NENDOS+ s s «+ à à à à » «à erso 93 
Nombres à 18 
Nombres décimaux . » . a. >» o e.o 80 
Nombres héxadécimauX +. . +. . e > . . 80 
NOWAK gérard . . . . sse . . a e = 
Objet VLISP > e sed aa ss 15 
OVERFLON (atome) . . . a.. s s e . 68 
DYNI a s sosa a esse à 108 
PEN a sese ss a 17 
PLISI sal ana à à 16, 61 
P-NAME a s 3 4 aasa aos seas 16, 17 
PETITE > s esac gp aad henag a 17 
PAUL gérard . .... s s o os so 5 
PDP 10 s 5 tsa sesira 9 
PERROT jean-françois . .. . . . eà 5 
PE à: 94 
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PRETTY-PRINT à s à è s è esses . 119 
PRETTY-READ . . . . ses’ vc... 13 
Programmation experimentale . . . 4 
Propriété naturelle . .». . . . . e e 16 
Pseudo-chaînes de caractères . . à 18, 79 
QUOTE ..... . . De E 81 
Quote caractère . . . s s e >s s so 79, 83 
Récupérateur de mémoire . +. . . +. . 108 
RAOULT jean claude . +. . sss sso D 
LA SE AAA AE H 79, 83, 87 
RICHER jean-Louis cuado o 
ROBINET bernard +... s s s so s. D 
RONCIN didier +... . >s sss eso’ 5 
RUBOUT è w a v cross «ss. 79 
S-expression . . Laos dadas 15 
SAINTOURENS michel TE D 
SBD 80E de MOSTEK . . . . . + s . 0 
SCPOLLIMO s =s s rs sses gosi 101 
SDK 80 de INTEL . . . . . . . . . . 8 
SDK80 . . . . . . a sas 8 
SHIFT . SEA 114 
SHIETÍS uso e yesos ¿sas «+ L14 
SHIFT/0 Da à à eo Ne 87 
SIP AA Sn ses ss ssa 1» 
SHIFT/B á ME 114 
SHIFT/D . . ¿aaa s 1139 
SHIFT/E .... rotia . + 116 
SHIFT/IG Se à nas dlo 
SHIFIZH è seasea + + 1. . 114 
SHIFIZE w s siada ees ass 113 
SHIFT 2... ...... > a e». 119 
SHIETIA. Sos +... Es 115 
SALEN 2.3503 115 
SHIFT/U sarasa radaras 116 
SHIFT/R ; ba bg i 116 
SHIFI JS a Se eds ss 5 6 > 
SAIFI APP EE 115, 116 
Sn EEE PAS + +... ss ss 6 
DLFP asa ss 114 
SRIF «ls. psi co ás 115 
SILES sa nao rosá s% 13, 115 
SIONES E sr nessa TE 

SIONES = ra amas 80 
SNUBUL. G a a a es s sa 94 
SOPBCERER EPA) i s à sesarat 8 
SORCERER (K7) . . ......... RE: 
SORCERER (ROMPAC) . . o ooo oo. 8 
Spécificateur de nombre héxadécimal 83 
Spécification de fichier . . . . . . 93 
SUBR © é è ra isa TE E à 21 
Surimpression . . . eeso’ cs... 07 
Synthèse d’ images colorées . . . . + 4 

T (atome spécial) e.s . ....... . 41 
Table (d’association) . . . . . . . 54 
Table de lecture . . . . . eeso’ 83 
Tail-récursion . . . . . cn... 29 
Tampon de sortie . . . +. . .». . . . . 89 
Terminal . . . . . . . ss ss 19 
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Terminal en entrée «eo 79 


Top-level sasas ......... 107 
Transcodage minuscule majuscule . . 79 
TPI=TUSION + Se ns 6 es à 66 
RSS | 4 
TRSSUTEPIM) s 2 1 ess ss o 8 
TRS80 (K7) è ss ye sas 8 
TRS80 (PROM) . . . . . . . . . . 8 
TRS80 (TRSDOS) +... . . . . . . . + 8 
TASDOS y ssar 9d 93 
Irie s ase. Al 
Type des caractères . . . . . . . . 83 
UNDEF eee e + 43, 50 
Unité arithmétique AMD 9511 8 


Université de PARIS 8 VINCENNES e 4 
Usart intet 825la , . . cs a. 102 


Vo a aseos ss. + + + 114 


Valeur booléenne . . +. . ¿ee sa 41 
Variable globale . . . . ess sso 19 
Variable locale . . . . . .. ... 19 
VERSATECO > s ..b< $ 4.3. 3 
VINCENNES a s s sa sdayana 4 
VELSCCINL a e 2 . 96 
WERTZ harald . a s sa s o... c c’ 5, 100 
ZELASKA katarzyna . ses Y 
ZELASKA katarzyna (kocham sie) xes 9 
ZILOG 200 os novas 4 

Zone code . . . . . . ... ..... 19, 111 
Es ss TETAS 83 

] . + o + » » » = > - » e. e è 9% = O 9 84 
cm esa À 
TES $ he es gmi ss ss ee 79, 81, 87 
TU e. $ ss TE 87 

PR Se ee à à à 79 

Tis ss assess 87 
Wise reas ines à à 79 
AE ER E a 79 
IAEA 94 
E E EN DS 0 79, 114 
Y dass a ss A A à 67 
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